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THE TWELVE COMPUTERISED 
DAYS OF CHRISTMAS 


On the first day of Christmas, my computer gave to me 
A glitch on the video screen. 

On the second day of Christmas, my computer gave to me 
Two keyboard bounces, 

And a glitch on the video screen. 

On the third day of Christmas, my computer gave to me 
Three loose plugs, 

Two keyboard bounces, 

And a glitch on the video screen. 


On the fourth day of Christmas, my computer gave to me 
Four garbled saves, 

Three loose plugs, 

Two keyboard bounces, 

And a glitch on the video screen. 



On the fifth day of Christmas, my computer gave to me 
Five blank cassettes, 

Four garbled saves, 

Three loose plugs, 

Two keyboard bounces, 

And a glitch on the video screen. 

On the sixth day of Christmas, my computer gave to me 
Six I/O spasms, 

Five blank cassettes, 

Four garbled saves, 

Three loose plugs, 

Two keyboard bounces, 

And a glitch on the video screen. 

On the seventh day of Christmas, my computer gave to me 
Seven system re-sets, 

Six I/O spasms, 

Five blank cassettes, 

Four garbled saves, 

Three loose plugs, 

Two keyboard bounces, 

And a glitch on the video screen. 

On the eighth day of Christmas, my computer gave to me 
Eight worthless printouts, 

Seven system re-sets, 

Six I/O spasms, 

Five blank cassettes, 

Four garbled saves, 

Three loose plugs, 

Two keyboard bounces, 

And a glitch on the video screen. 

On the ninth day of Christmas, my computer gave to me 
Nine burnt-out fuses, 

Eight worthless printouts, 

Seven system re-sets, 

Six I/O spasms, 

Five blank cassettes, 

Four garbled saves, 

Three loose plugs, 

Two keyboard bounces, 

And a glitch on the video screen. 


On the tenth day of Christmas, my computer gave to me 
Ten disc-drive lockouts, 

Nine burnt-out fuses, 

Eight worthless printouts, 

Seven system re-sets, 

Six I/O spasms, 

Five blank cassettes, 

Four garbled saves, 

Three loose plugs, 

Two keyboard bounces, 

And a glitch on the video screen. 


On the eleventh day of Christmas, my computer gave to me 
Eleven damaged diskettes, 

Ten disk-drive lockouts, 

Nine burnt-out fuses, 

Eight worthless printouts, 

Seven system re-sets, 


x I/O spasms, 

/e blank cassettes, 
ur garbled saves, 
ree loose plugs, 
to keyboard bounces, 


.//Won crrppn. 


On the twelfth day of Christmas, my computer gave to me 
Twelve blown-out circuits, 

Eleven damaged diskettes, 

Ten disk-drive lockouts, 

Nine burnt-out fuses, 

Eight worthless printouts, 

Seven system re-sets, 

Six I/O spasms, 

Five blank cassettes, 

Four garbled saves, 

Three loose plugs, 

Two keyboard bounces, 

And a glitch on the video screen. 
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EVERYTHING YOU 
ALWAYS WANTED TO 

KNOW ABOUT 
COMMODORE 
COMPUTERS * 


* And Asked! 



PET Questions 

1. Q: How can the Pet 2001 be up¬ 
graded? 

A: Commodore 2000 series machines 
can be upgraded by changing the 
BASIC ROM chips. The original 4K 
and 8K PET computers do not have 
ROMs to convert the operating 
system beyond BASIC 3.0. ROM chip 
sets (called "BASIC Upgrade ROMs") 
are available from most authorised 
Commodore dealers. Benefits to be 
gained by upgrading the machine are 
disk commands, enhanced BASIC 
interpreter, and a wider range of 
compatibility with available application 
software. 

2. Q: Where can information be 
obtained about the PET 2001 
parallel user port? 

A: Information about the parallel user 
port of the PET 2001 can be found in 
The PET Revealed or in PET 
Interfacing (published by Howard W. 
Sams Co., Inc.). These books can be 
purchased from your authorised 
Commodore dealer. 


3. Q: Can a 4016 be upgraded with 
additional RAM? 

A: Commodore does not recommend 
or support memory upgrade modifica¬ 
tions, although there are some 
vendors who make an expansion 
memory system available. Such a 
device connects though the memory 
expansion port. 

4. Q: Is the character set now in the 
PET/CBM encoded in the memory 
chip? 

A: The character set is contained in a 
chip called the character generator 
ROM (socket #UF10 in the 2001 and 
socket #A3 in the Fat Forty and the 
8032). 

5. Q: How can a TV set or a monitor 
be connected to a PET for use in a 
classroom? 

A: The computers with a nine inch 
screen require a video adapter to 
generate a composite video signal 


and a monitor. Units with a twelve inch 
screen require the video adapter and 
a high resolution (16 MHz or greater) 
monitor. 

6. Q: Can a repeating key be 
created with the graphics keyboard 
on the 4016 and the 4032? 

A: A repeating key can be created on 
the 4016 and the 4032 if you write a 
machine language program for our 
version of BASIC. There is also a 4K 
ROM (called the Machine Language 
Utility-Pac) that will fit into an empty 
ROM slot of the machine which has an 
Auto-Repeat command included More 
information about the Machine Lang¬ 
uage Utility-Pac is published in the 
Software Encyclopedia/Second Edition 

7. Q: We are using seven PETs, but 
have only two disk drives. Would it 
be possible to connect more than 
one PET to a disk drive? 

A: Although it is not recommended, it 
is possible to connect more than one 
computer to a disk drive. Be careful to 
have only one computer access the 
disk drive at any one moment, or else 
the system may crash. One way to 
prevent this problem is to use the 
MUPET. This device allows connection 
of up to eight computers to one disk 
drive. Another alternative is the 
REGENT. This device allows connec¬ 
tion of up to 16 computers to one 
drive. It works especially well in a 
school environment. 
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CBM Questions 



1. Q: To which machines can the 
64K Memory Expansion Board be 
connected? 

A: The 64K add-on board can be used 
in conjunction with the 8032. It also 
works with the Fat Forty computer 
that is equipped with the universal 
logic board. 

2. Q: What is the maximum usable 
RAM on the PET/CBM? 

A: Both the PET and the CBM have 
31,743 bytes of RAM available for use 
in programming. 

3. Q: What is the MUPET and the 
REGENT? 

A: The MUPET and the REGENT are 
devices that allow several computers 
to share a common disk drive. These 
devices switch the bus from computer 
to computer as the situation requires. 
Si nee they are hardware-only devices, 
they use no RAM in any of the 
computers. 

4. Q: Can a typewriter be interfaced 
with an 8032? 

A: Some typewriters can be interfaced 
with the 8032 with difficulty. For 
instance, a program must be written to 
translate characters to the kind 
required by the typewriter, and circuit 
boards may have to be changed. 
Interfaces used are RS232 or 
connections to the user port. 

5. Q: What is the procedure to get 
into the graphics mode? 

A: To get into the uppercase/graphics 
mode on the 8032, simply PRINT 
CHR$(142). To get back into normal 
upper/lower case mode, PRINT 
CHR$(14). 

6. Q: What clock rate is used on the 
8032? Why isn’t a 4 MHz used? 

A: The 8032 uses a 1 MHz clock The 
internal architecture of the 6502 chip 
is more efficient than that of other 
microprocessors in that the instruction 
fetch/decode cycle overlaps the 
execution cycle. Thus a 1 MHz 6502 is 


faster than a 2 MHz 8080 or Z80 
microprocessor. 

7. Q: Where is the cursor address 
stored in the 8032? 

A: On the8032, the column position of 
the cursor is decimal address 198. 
The row position is decimal address 
216. 

8. Q: How can the machine 
language monitor be entered? 

A: To enter the machine language 
monitor, use the SYS command to 
jump to any location containing a 
binary zero. For example: SYS 4 or 
SYS 1024. This works on any 
PET/CBM computer that contains the 
built-in machine language monitor. 
This includes all but the first machines 
- and those machines that have a 
monitor on tape. 

9. Q: How does Commodore’s 
IEEE differ from Hewlett Packard’s 
IEEE? 

A: There are several differences in 
both hardware and software . 
Commodore features a Remote 
Enable line that is tied permanently to 
ground. The Interface Clear line is not 
used and the Commodore Service 
request line is not implemented in the 
firmware. Also, the HP does not 
include a 64 millisecond time-out on 
their bus. For more information, refer 


to The PET and the IEEE-4888, which 
is published by Osborne/McGraw Hill, 
and should be available at your local 
Commodore dealer. 

10. Q: How can a window be set on 
the 8032? 

A: Under program control, move the 
cursor to the upper-left corner of your 
desired window and PRINT CHR$(15). 
Then move the cursor to the lower- 
right corner of the window and PRINT 
CHR$(143). This procedure is elabor¬ 
ated in the PET/CBM Personal 
Computer Guide/Second edition. 

11. Q: What is the difference 
between ULSL ASCII code and 
Commodore PET ASCII? 

A: U.S. ASCII code uses a seven bit 
code which can represent 128 
characters(2=128). PETACSII hasan 
eight bit code which can represent 
256 characters (2=256); this accounts 
for the additional characters on 
Commodore computers. This is why 
an ASCII converter is necessary to 
interface with third party printers. 

12. Q; Can a CBM computer run a 
VIC 20 Program? 

A: Our CBM range of computers will 
run a 3K expanded VIC 20 program 
with no difficulties. To run a program 
from an unexpanded VIC 20 the 
following steps are necessary.- 
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P0KE41,16 (moves BASIC pointer 
to start of BASIC on CBM) 
POKE4096.0 (initialises the new 
BASIC area with zero). 

To run an 8K or 16K program the 
following steps are necessary- 
POKE41.18 
POKE4607.0 
CLR 

Your VIC 20 programs will now run on 
the CBM computeri 


13. Q: Are spaces necessary in the 
BASIC text of a line? 

A: The Commodore computer will 
disregard unnecessary spaces in a 
program. Spaces are mainly used for 
clarity and easy reading of programs. 


14. Q: How can one program be 
loaded from another program? 

A: The first program must incorporate 
a load statement in the last executed 
statement of the program. 



SUPERPET Questions 

1. Q: What is resident in the 
SuperpET that allows for multiple 
high-level languages? 

A: The ROMs in the SuperPETcontain 
routines that handle system functions 
such as input/output screen handling, 
keyboard input and general utility 
functions. These routines interface 
with the operating system for the 
particular language that you load into 
the computer. This allows different 
languages to be loaded whU,-h use the 
same utility routines 

2. Q: Will the languages available 
for the SuperPET work with a 4040 
disk drive? 

A: The languages will work, but the 
diskettes supplied are in the 8050 
format, so they would have to be 
copied down to 4040 format first 


3. Q: Can an 8032 be upgraded to 
be a SuperPET? 

A: In the future, a “single-board” 
upgrade will be available from your 
Commodore dealer. This will include 
language disks and the manuals 

4. Q: Why won’t VISICALC and 
other software that uses ROM chips 
run on the SuperPET? 

A: The add-on memory occupies the 
same address space as ROM slot 
#UD12. The 6502 “sees” RAM there 
instead of the ROM chip. A dealer- 
installed upgrade is available. 

5. Q: When using the modem with 
the SuperPET, why do characters 
seem to be echoed back onto the 
screen? 

A. The built-in communications program 
on the SuperPET prints the characters 
on the screen as they are keyed in 


from the keyboard. If the host 
computer is set to echo, then the 
received character will be a duplicate, 
causing the screen to display each 
character twice. Almost every host 
computer can be stopped from 
echoing. The specific command 
depends on the host computer being 
used. 

5. Q: Are the SuperPET languages 
(FORTRAN, APL, BASIC, PASCAL, 
and Assembler) limited subsets of 
the languages? 

A: All of the languages included with 
the SuperPET are complete languages 
written by the University of Waterloo. 

6. Q: Is debugging available forthe 
languages included with the 
SuperPET? 

A: Debugging is included with all of 
the SuperPET languages. Debugging 
allows the computer to work interact¬ 
ively with the programmer in editing 
and correcting the program. 

7. Q: How much memory is used 
when the languages are inserted 
into internal memory of the 
SuperPET? 

A: The high-level languages load the 
interpreter into the upper 64K of RAM 
and leave the lower 32K of RAM for 
programming. 

8. Q: Are the SuperPET languages 
stored as interpreters or as com¬ 
pilers? 

A: All of the Waterloo languages at this 
time are interpretive languages which 
means that the computer “compiles” 
and executes the program on a line- 
by-line basis. This saves time in the 
debugging process. 
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9. Q: How can the screen be 
cleared from within the program on 
the SuperPET? 

A: Printing the chr$(12) character in 
‘Waterloo MicroBASIC’ will clear the 
screen and home the cursor. 

10. Q: What pins are required to 
connect a modem to the SuperPET? 

A: The SuperPET has pins 1,2,3,4,5,6, 
7,8 and 20 for use. The SuperPET can 
be used to interface with serial 
devices other than modems However, 
depending upon which particular 
device is being used, as few as three 
(1,2 and 3) or a combination up to nine 


pins may be needed. The pin 
configuration will be dictated by the 
peripheral being connected to the 
SuperPET. For connecting to a 
modem, a direct connect 25 pin cable 
is recommended. 

11. Q: How do you access the 
COBOL interpreter on the new 
Update disk? 

A: The menu displayed on the screen 
does not show a selection for COBOL 
Replacement ROMs to change the 
screen menu will not be available 
through Commodore. The Cobol 
interpreter is loaded by typing, using 
the shift key, COBOL 


12. Q: Is there a networking system 
for the SuperPET? 

A: There is, at this time, no true 
networking system for the SuperPET. 
Until one beomes available, the 
MUPET and DOUBLE MU PET from 
CMD should satisfy most users. 

13. Q: What baud rates can be used 
with the SuperPET? 

A: The SuperPET is capable of 
transmitting from 50 to 9600 baud. 
Refer to the SuperPET overview 
Manual, pages 60 and 61 for ‘Setup’ 
options 



VIC 20 Personal Computer 
Questions 

1. Q: Can software programs made 
by other vendors (Atari/Radio 
Shack, etc.) be utilised by the VIC 
20 ? 

A: In general, software that has been 
written for a particular computer can 
be used only on that computer. 
Therefore, software programs made 
by other vendors cannot be used on 
the VIC 20. 

2. Q: How can programs saved on 
the 8032 be loaded to the VIC and 
vice versa? 

A: The VIC will load PET/CBM 
programs from tape without any 
modification if there is enough 


memory installed in the VIC. To load a 
PET/CBM with a VIC program, first 
POKE41,16, then POKE 4096,0, then 
type NEW and proceed to load. 

3. Q: Is it possible to use multiple 
joysticks with the VIC? 

A: Only one joystick can be plugged 
into the game control port Any 
additional joysticks must be interfaced 
to the user port with the appropriate 
software. 

4. Q: Can more than one disk drive 
be connected to the VIC while 
using the printer? 

A: Up to five disk drive units can be 


“daisy-chained” together. To include a 
VIC Printer in the system, simply 
connect it as the last unit of the chain. 

5. Q: How is the RUN/STOP key 
disabled on the VIC 20? 

A: Disable-POKE788,194. Enable- 
POKE788.191. 

6. Q: What does EMAIL stand for 
when accessing a telecomm¬ 
unications network? 

A: EMAIL stands for Electronic Mail. 
This is a means of sending and 
receiving messages through tele¬ 
communication lines 
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DISK DRIVES Questions 

1. Q: What do the lights on the disk 
drive signify? 

A: The light on the top centre unit 
indicates an error condition if it turns 
red and stays on. (Flickering is normal 
during operation.) The lights on each 
drive indicate activity in that particular 
drive. 

2. Q: There is a buzzing noise 
during initialisation of a disk - is 
something wrong with the disk 
drive? 

A: The noise is normal. The head 
mechanism is creating the noise by 
vibrating the head against the travel 
limit stops. This ensures that track 
number one has been located. 

3. Q: What kind of diskettes should 
be used with the disk drive? 

A: We suggest using double-density 
diskettes with the 8050 and the 8250 
because they tend to be slightly more 
reliable than others. However, any 
good-quality, soft-sectored, single¬ 
density diskette will work well with any 
model disk drive. 

4. Q: How can the disk drive be 
cleaned? 

A: The disk drive can be cleaned by 
using a commercial head-cleaning 
diskette and cleaning fluid. These 
products are available from most 
computer or office equipment stores 

5. Q: What is the cause of READand 
LOAD errors? 

A: A number of things can cause 
errora Possible causes include: 

1) improperly seated diskette; 

2) physical or electrical damage to the 
diskette; 

3) dirty heads in disk drive; and 

4) drive head misaligned or speed of 
rotation not properly set Your 
Commodore dealer is equipped to 
evaluate these problems if they 
Persist. 

6- Q: How can the 2040 disk drive 
he upgraded to a 4040 disk drive? 

A: A 2040 can be upgraded by simply 


replacing the ROM chips on the main 
logic board. ConsultyourCommodore 
dealer for ordering information. 

7. Q: Can the 8050 disk drive be 
upgraded to an 8250 disk drive? 

A: The 8050 cannot be upgraded to an 
8250, however, the diskettes are 
compatible. Of course, the 8050 only 
uses (reads/writes) the bottom side of 
the diskette. The 8250 uses both 
sides. Therefore, it is the bottom side 
of the diskette that is compatible with 
both drives 

8. Q: Can a 4040 dual disk drive 
read a diskette made on a 2040 
disk drive? 

A: A 2040 diskette can be read from a 
4040 disk drive, but it cannot be 
written on. The means that a 4040 
drive is read compatible but not write 
compatible with a 2040 diskette. 

9. Q: How can a 4040 diskette be 
copied to an 8050 disk format for 
use on the 8050 drive? 

A: The following procedure lists the 
proper steps: 

1 ) Turn on the computer and the 8050 
drive only; 

2) Run the “Change 8050” program 
(included on the Test/Demo diskette); 

3) Turn on the 4040 drive; 

4) Run the “Unit to Unit” program 
(found on the Test/Demo diskette). 
The Unit to Unit program will copy all 
of your files from the 4040 diskette to 
the 8050 diskette. 


10. Q: How many files will each 
diskette hold? 

A: A 4040 diskette is capable of saving 
a maximum of 144 files An 8050 
diskette is capable of saving a 
maximum of 224 files These files may 
be either sequential, program, relative, 
or a combination. Once that limit has 
been reached, the directory is full - 
even if the rest of the disk is not 

11. Q: Will the 8250 Disk Drive 
accept 8050 Disk Drive diskettes 
and vice versa? 

A: The 8050 diskettes are read/write 
compatible when used on the 8250 
DisK Drive. When using and 8250 
diskette in the 8050 Disk Drive only 
the underside of the 8250 diskette will 
be read/write compatible. 

12. Q: What is the BAM? 

A: A BAM stands for Block Availability 
Map. This is a disk memory represent¬ 
ation of available and allocated space 
on disk It is referenced by the DOS 
(Disk Operating System) to determine 
what space is available and how many 
blocks can be allocated. 

13. Q: In disk operating commands, 
why does a “d” precede certain 
commands? 

A: Machines using BASIC 4.0 need 
this preceding the command. 

14. Q: What is a Hard Disk? 

o 

A: A hard disk is one that has a rigid 
platter on which the magnetic media 
iron oxide is coated. 
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PRINTERS Questions 


1. Q: What does the blinking light 
signify on the 4022? 

A: When the red light blinks, it 
indicates that the printer is out of 
paper or that the paper is not inserted 
correctly. 

2. Q: Are there bi-directional 
printers available from Commodore? 

A: There are printers available with the 
bi-directional feature such as the 
8023P and the 8024. The 4022 
printer can be upgraded by replacing 
ROM with an upgrade ROM. The part 
number of this upgrade ROM is 
901631-02. 

3. Q: Is the 4022 upward compatible 
with the 8023? 

A: Programs that work with a 4022 will 
also work with the 8023. 

4. Q: Will an 8032 accept two 
printers? 

A: The 8032 can be used with up to 
four printers connected. 

5. Q: Is the 8300 printer supplied 
with a tractor feed mechansim? 

A: The tractor feed mechanism is an 
optional feature for the 8300 printer, 
and it allows bi-directional (up/down) 
movement of the paper. This feature is 
available from your Commodore 
dealer. 

6. Q: What cables are needed to 
connect a Commodore printer to a 
Commodore computer? 

A: In order for the first peripheral to be 
connected to a Commodore computer, a 
PET to IEEE cable is required. For 
every additional peripheral, an IEEE to 
IEEE cable is required. For this 
reason, the cables are sold separately 
from the peripherals 

7. Q: Do any Commodore printers 
have graphics capability? 

A: The Commodore 1515,2022,2023, 
4022, and 8023 printers all support 
PET graphic charactera 



8. Q: Do any Commodore printers 
print characters with true ascenders 
and descenders? 

A: With the exception of the VIC 1515 
printer, all Commodore printers are 
capable of printing characters with 
true ascenders and descendera 

9. Q: What type of printer heads do 
the 2022 and 4022 printers use, 
and what is their life expectancy? 

A: The 2022 printer uses a print head 
that can be repaired. The 4022 printer 
uses a print head that can be replaced 
once it is worn out The life expectancy 
of each is approximately 60 million 
charactera 


10. Q: How can I get a listing of my 
program on the printer? 

A: To get a listing of a program do the 
following: depress the ‘shift key and ‘5 
key to put the language editor in 
command mode, then for; 

(1) BASIC - save ‘printer'. 

(2) COBOL -p’printer’. 

(3) FORTRAN - p’printer’. 

(4) PASCAL - p’printer’. 


BASIC - Page 53 - Exam P'e-29. 
ange line 40, “’namefile”’ to 
Pinter”’ To get a clean run when 
•outing this program DELETE 
3S 140-220. The printer will list 
mes entered via the console. 
COBOL- Page 64-68, Example- 
This program shows exactly 
w the printer is used to Print a 
jort on the printer”. 

FORTRAN - Page 61, Example- 


“’printer”’. Again for a clean run 
eliminate the lines of code from the 


second ‘open...’ statement through 
the ‘close...’ statement 
(4) PASCAL - Page 7, Example-5. 
This program requires some addit¬ 
ional defining in the VAR section. 

Between the“var”and“begin” lines 
enter”p:text;”. After the first “begin” 
line, enter “rewrite (p.’rinter');”. You 
might want to refer to page 93 for 
additional information regarding 
“var" and “rewrite” usage within a 


program. The ”p” becomes the first 
parameter within parenthese of the 
“writeln” statements: “writeln(p,’A 
table of squares and cubes:’);” and 
”writeln(p,x, xsquared, xcubed);”. 


12. Q: How can a program be listed 
11. Q: How can I use the printer in upper/lower case on the 8023 
within my program to list data? printer? 


A Each language interpreter accesses 
the printer in a different way. Rather 
than give programs listings to show 
how the printer is accessed, I will 
indicate modifications that can be 
made to the ‘tutorials’ to use the 
printer. 


A: Set the printer to upper/lower case 
by using this sequence of commands- 
OPEN 1,4,7 
PRINT #1 
CLOSE1 

The printer now prints in upper/lower 
case. 
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THE ARBITER 

Originated by Gippsland Computer Business Services 
167 Princes Highway, 

BAIRNSDALE 
ph (051) 525939 

With a couple of EPROMs, a few bits of wire and edge sockets, it is 
relatively easy to produce multi terminal Commodore computers 
that share the IEEE bus. This method is simple, requires minimal 
software changes, and most importantly, it is super cheap. We have 
used this with the CBM9090 hard disk drive with raging success. It is 
so quick at opening and closing files, that programs that do not hog 
the bus work incredibly well. The ARBITER system is intended for 
applications of up to 3 or4 terminals maximum but can arbitrate the 


bus for up to 255. 

THE BAD NEWS OUT OF 
THE WAY 

Like all cheap tricks, there are a few 
drawbacks, so for a change here are 
the known limitations and outright 
bugs discussed first Once we get that 
out of the way we can brag with a clear 
conscience. 

Only one computer can use the bus 
at a time. It is important to use the bus 
and then get off it as quickly as you 
can. You can handle this in your 
programs by shutting files as soon as 
possible. 

If someone presses the stop key 
just after a SHIFT/RUN has been 
pressed you will have to quickly enter 
open15,8,15:close15. However if 
another user grabs the bus in 
between whiles... then resetting of all 
CPUs is needed. This is a nasty one. 
Any ideas anyone??? 

If used with an SP9000 the 
presence of an EPROM in the F-ROM 
position gave us a problem. Is seems 
that with all the other 6809 ROMs 
lying across the address lines, the 
capacitance increased too much and 
we couldn’t get it to bank select the 
6809 software properly. So we 
soldered the new F-ROM on top of the 
old one and put in a switch for the 
select line on pin 20. 

Machine code programs that have 
their own bus handling routines or use 
the bus in strange ways will not work. 
The two we know of are WORDCRAFT 
and SILICON OFFICE. WORDCRAFT 
has a new version that already allows 
multi terminal and old versions are 
very easily changed if Peter Dowson 


and Commodore don’t mind. SILICON 
OFFICE is the same story, but we 
don’t know how to restore the diskette 
protection once it has been modified. 

HOW TO INSTALL THE 
GADGET 

1. String the cable between the 
userports of the computers that will 
be sharing. Daisy chain or star 
configuration is acceptable. Try the 
loop system (the Vatican OK’s this 
one) but we haven’t given that one 
a go. You only need 8 wire ribbon 
cable that connects the 8 data 
lines. These are underneath the 
circuit board and looking from the 
rear of the unit, start at the third and 
go left to right 

2. Make two EPROMs for each 
computer you will be using. The 
listing provided gives all the info on 
what is needed for this. If it is a drag 
to make the bits and pieces, give us 
a ring and we can get them to you 
for cost plus and agro charge and 
post 

HOW IT BEHAVES IN 
USE 

Turn on all the computers and 
devices on the bus. Whoever does a 
shift/run or load first gets the bus until 
the program is loaded. While the 
program loads the others then sit on a 
cue waiting. Each CPU has a 
weighting factor in the F-ROM chip. 
This means that if two are waiting for 
the bus at once then, the one with the 
smallest weighting is most likely to get 
the bus first While you are waiting for 



the bus, a tick will be displayed on the 
right hand top of your screen. Once 
you get the bus, whatever character 
was there before the tick will be 
replaced. The longest you have to wait 
in normal use will be the time it takes 
for another computer to load a 
module. If the program on another 
computer opens a file and then leaves 
it open for a long period, it is 
considered to be hogging the bus. We 
recommend that any programs that 
do this be changed so they close files 
as soon as possible. This is good 
programming practice anyway, as 
files opened for writing usually leave 
unwritten data in the disk memory and 
if the power fails, you lose this data 

With the CBM9090 hard disk drive, 
waiting is very short The application 
we are using it for involves medical 
billing. Two terminals can be billing 
concurrently. The bus is hogged the 
worse at the time the account 
statement is printed and is only a few 
seconds anyway. With a decent 
printer that has a buffer, this problem 
is gone too. In fact the user spends so 
much time doing the entries for the 
account that the time spent waiting for 
the bus is negligible by comparison. 

If you are writing programs and so 
on, and you leave a file open and drop 
to ready mode, the ARBITER will ring 
the bell once and print the message 
’hog mode’ in reverse screen in the 
line above the ready. Unless vital, we 
recommend that you close your open 
filefs) and allow the other users 
access to the bus Any disk commands 
from direct mode are catered for by 
the ARBITER as well. 
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With the release of hard disk drives 
there will probably be a need for multi 
terminal access and the ARBITER is 


public domain so help yourself. The 
ony thi ng we ask, is that if you discover 
any bugs or clever enhancements, we 


would appreciate knowing. This is the 
only exchange we ask 


0 : ARBITER. SRC.PAGE 0001 


LINE# LOC CODE 


LINE 


0001 0000 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

FD60 08 

FD61 48 

FD62 8A 

FD63 48 

FD64 98 

FD65 48 

FD66 20 FD FD 

FD69 68 

FD6A A8 

FD6B 68 

FD6C AA 

FD6D 68 

FD6E 28 

FD6F A5 D3 

FD71 30 03 

FD73 4C A9 F4 

FD76 60 

FD77 EA 

FD78 EA 

FD79 EA 

FD7A 

FD7A 

FD7A 

FD7A 

FD7A 

FD7A 

FD7A 

FD7A 

FD7A B9 65 02 
FD7D 9D 65 02 
FD80 08 
FD81 48 
FD82 8A 
FD83 48 
FD84 98 
FD85 48 
FD86 20 2B FE 
FD89 68 
FD8A A8 
FD8B 68 
FD8C AA 
FD8D 68 


THE ARBITER 

JOHN GYFFYN AND STEPHEN LAMB 
GCBS P.O. BOX 200 BAIRNSDALE 3075 VICTORIA 
PHONE (052) 52 5939 


1. GRAB THE BUS WHEN OPENING AN IEEE FILE BY 
CHANGING F-ROM AT F595. REPLACE JMP F4A5 
WITH A JMP FD60 


*=$FD60 
OPEN PHP 
PHA 
TXA 
PHA 
TYA 
PHA 

JSR GETBUS 

PLA 

TAY 

PLA 

TAX 

PLA 

PLP 

LDA $D3 
BMI EXIT 
JMP $F4A9 
EXIT RTS 
NOP 
NOP 
NOP 


;START ADDRESS OF EXTRA STUFF 
;CALLED FROM F595 - FILE OPEN 
;PARANOID SAVING OF REGISTERS 


;HANG AROUND TILL BUS GRABBED 
;COVER TRACKS BY RESTORING REGISTERS 


;COPY MICROSOFT EXITS AT F4A5 


;LEAVE A BIT OF SPACE IF LATER 
;FIXES OR ENHANCEMENTS NEEDED 


2. THIS ONE FIXES THE BUS WHEN JUST AFTER 
MICROSOFT HAS CLOSED A FILE. THE BUS 
IS GIVEN UP ONLY IF ALL FILES TO IEEE 
ARE CLOSED. THE F-ROM GETS CHANGED AT 
F32E AND F331 BY PUTTING JMP FD7A 
AND JMP FD80 THERE RESPECTIVELY 


CLOSE LDA $0265,Y 
STA $0265,X 
PHP 
PHA 
TXA 
PHA 
TYA 
PHA 

JSR OFFBUS 

PLA 

TAY 

PLA 

TAX 

PLA 


;CALLED FROM F32E 
;PUT BACK WHAT WE STOLE 
;CALLED FROM F331 
;YES THE REGISTERS AGAIN 


;GET OFF THE BUS IF YOU CAN 

:RUR OUT ANY SIGN OF YOUR PRESENCE 
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0 : ARBITER. SRC.PAGE 0002 


LINE# 

LOC 

CODE 

LINE 


0056 

FD8E 

28 


PLP 

0057 

FD8F 

60 


RTS 

0058 

FD90 

EA 


NOP 

0059 

FD91 

EA 


NOP 

0060 

FD92 

EA 


NOP 

0061 

FD93 


r 

= = = = = : 


0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 


FD9 3 
FD93 
FD93 
FD93 
FD93 
FD93 
FD94 
FD95 
FD96 
FD97 
FD98 


;LEAVE ROOM IF NEEDED LATER 


L 1J_|V_»I\ VJIN iJVUl\I -- 

AND PINCH THE BUS IF IT IS AND IEEE KEYWORD. 
THIS ONE IS IN THE B-ROM AND YOU NEED TO 
CHANGE THE BYTES AT B79F TO JMP FD93 


08 

48 

8A 

48 

98 

48 


EXEC 


PHP 

PHA 

TXA 

PHA 

TYA 

PHA 


0073 

FD99 

CO 

48 



CPY 

#$48 

0074 

FD9B 

B0 

05 



BCS 

NOTEST 

0075 

FD9D 

20 

2B 

FE 

TEST 

JSR 

OFFBUS 

0076 

FDA0 

F0 

03 



BEQ 

KEEP2 

0077 

FDA 2 

20 

FD 

FD 

NOTEST 

JSR 

GETBUS 

0078 

FDA5 

68 



KEEP2 

PLA 


0079 

FDA6 

A8 




TAY 


0080 

FDA7 

68 




PLA 


0081 

FDA8 

AA 




TAX 


0082 

FDA9 

68 




PLA 


0083 

FDAA 

28 




PLP 

$0070 

0084 

FDAB 

4C 

70 

00 


JMP 

0085 

FDAE 

EA 




NOP 



;CALLED FROM B79F 
;THE REGISTERS AGAIN 


. is the KEYWORD a 4.0 DOS ONE? 

NOT IEEE KEYWORD 
FILES OPEN SO HOG THE BUS 
IEEE KEYWORD SO GRAB BUS 
PUT BACK THE PIECES 


•CONTINUE WITH MICROSOFT 
•THE USUAL 'FIX IT' SPACE 


0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 


FDAF 
FDB0 
FDBl 
FDBl 
FDBl 
FDBl 
FDBl 
FDBl 
FDBl 
FDBl 
FDBl 
FDB2 
FDB 3 
FDB4 
FDB 5 
FDB 6 
FDB 7 
FDBA 
FDBB 
FDBD 
FDC0 
FDC3 
FDC5 
FDC7 
FDCA 


EA 

EA 


NOP 

NOP 


08 

48 

8A 

48 

98 

48 

AE 43 E8 
E8 

DO 13 
20 2B FE 
AD 43 E8 
F0 0B 
A2 0C 
BD D8 FD 
20 D2 FF 


READY 


Su R c E r s ™ TE - 

j™s»*s ss» s»i a u =o 

S? CLOSING HIS FILES IF HE CAN. 

^ANGE THE BYTES AT B403 TO JMP FDBl 

D[JD ;CALLED FROM B40 3 

;THE USUAL REGISTERS SAVE 

TXA 
PHA 
TYA 
PHA 

LDX 59459 
I NX 

BNE FIN 
JSR OFFBUS 
LDA 59459 
BEQ FIN 
LDX #$0C 

PRINT LDA HOG-1fX 
JSR $FFD2 


;GOT THE BUS? 


;YEAH SO DROP IT IF CAN 

;GOT DROPPED SO NORMAL READY 
;PRINT HOG MODE BEFORE READY PRINTED 


Vol.2 Issue 8 Commodore Magazine 1 1 










0: ARBITER.SRC.PAGE 0003 


LINE# 

LOC 

CODE 

LINE 


0111 

FDCD 

CA 



DEX 

0112 

FDCE 

DO 

F7 


BNE 

0113 

FDD0 

68 


FIN 

PLA 

0114 

FDDl 

A8 



TAY 

0115 

FDD2 

68 



PLA 

0116 

FDD3 

AA 



TAX 

0117 

FDD4 

68 



PLA 

0118 

FDD 5 

28 



PLP 

0119 

FDD 6 

4C 

ID BB 


JMP 

0120 

FDD 9 

92 


HOG 

. BY' 

0120 

FDDA 

45 

44 



0120 

FDE2 

12 




0120 

FDE3 

07 




0120 

FDE4 

0D 




0121 

FDE5 

EA 



NOP 

0122 

FDE6 

EA 



NOP 

0123 

FDE7 

EA 



NOP 

0124 

FDE8 



; ===== 

= = = = = : 


0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 


PRINT 


:LEAVE ALL AS YOU FOUND IT 


$BB1 D 
?E $92, 


EDOM 


; BACK 
GOH ' , 


TO BASIC 
$12, $07, 


$0D 


FDE8 

FDE8 

FDE8 

FDE8 

FDE8 

FDE8 

FDE9 

FDEA 

FDEB 

FDEC 

FDED 

FDEE 

FDFl 

FDF2 

FDF3 

FDF4 

FDF5 

FDF6 

FDF7 

FDFA 

FDFB 

FDFC 

FDFD 

FDFD 

FDFD 

FDFD 

FDFD 

FDFD 


5. THIS ONE FIXES THE LOAD, SAVE AND VERIFY 
STATEMENTS DONE FROM PROGRAM OR DIRECT 
MODE. CHANGE THE BYTES AT F4AD TO 
JMP FDE8 


08 

48 

8A 

48 

98 

48 

20 FD FD 
68 
A8 
68 
AA 
68 
28 

4C D5 F0 

EA 

EA 

EA 


PROG PHP 
PHA 
TX A 
PHA 
TYA 
PHA 

JSR GETBUS 

PLA 

TAY 

PLA 

TAX 

PLA 

PLP 

JMP $F0D5 

NOP 

NOP 

NOP 


;CALLED FROM F4AD 


;KNOCK OFF THE BUS 


;ALWAYS FINISH WHAT YOU STARTED 


SUBROUTINE TO GRAB THE BUS. TRY AND GET 
IT AND IF YOU CAN'T PUT A TICK AT THE TOP 
RIGHT CORNER OF THE SCREEN TO TELL THE 
USER THE COMPUTER IS STILL AWAKE DESPITE 
ALL APPEARANCES. 


0153 

FDFD 




r 


59459 

;CALLED FROM STUFF ABOVE 

0154 

FDFD 

AE 

43 

E8 

GETBUS 

LDX 

0155 

FE00 

E8 




I NX 



0156 

FE01 

F0 

24 



BEQ 

GOT IT 

;BEAUDIE! ALREADY GOT THE BUS 

0157 

FE03 

AC 

4 F 

80 


LDY 

$804F 

;SAVE THE SCREEN CHARACTER 

0158 

FE06 

A2 

7 A 



LDX 

#$7A 


0159 

FE08 

8 E 

4 F 

80 


STX 

$804F 

;PUT A CUTE TICK THERE 

0160 

FE0B 

A9 

00 


TRY 

LDA 

#$00 


0161 

FE0D 

8D 

43 

E8 


STA 

59459 

;SET GOT THE BUS BYTE 

0162 

FE10 

AE 

40 

FE 


LDX 

$ FE40 

/GET DELAY AMOUNT 

0163 

FEl 3 

CA 



WAIT 

DEX 



0164 

FEl 4 

DO 

FD 



BNE 

WAIT 

;FREE FOR GIVEN TIME 

0165 

FE16 

CE 

43 

E8 


DEC 

59459 

;OUTPUT MODE 

0166 

FEl 9 

AD 

41 

FE 


LDA 

$FE41 

;CPU NUMBER 

0167 

FElC 

8D 

4F 

E8 


STA 

59471 

;PUT CPU NUMBER ON PARRALLEL PORT 

0168 

FE1F 

CD 

4 F 

E8 


CMP 

59471 

;DID IT GET THERE OK? 

0169 

FE22 

DO 

E7 



BNE 

TRY 

,*NO SO TRY....TRY AGAIN 

0170 

FE24 

8C 

4 F 

80 


STY 

$804F 

;GOT 'IM PUT BACK THE SCREEN BYTE 
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0 : ARBITER . SRC.PAGE 0004 


LINE# LOC CODE 


LINE 


0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 


0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 


FE27 

FE28 

FE29 

FE2A 

FE2B 

FE2B 

FE2B 

FE2B 

FE2B 

FE2B 


60 

EA 

EA 

EA 


GOTIT RTS 
NOP 
NOP 
NOP 


SUBROUTUINE TO DROP THE BUS IF THERE ARE 
NO OTHER FILES OPEN. OTHERWISE HOG IT 
TO PREVENT THE OTHER CPU DROPPING BYTIES 
ALL OVER YOUR LOVELY FILES IN A MOST 
UNDIGNIFIED FASHION 


0181 

FE2B 




/ 


0182 

FE2B 

A6 

AE 


OFFBUS 

LDX $AE 

0183 

FE2D 

F0 

0A 



BEQ GIVEUP 

0184 

FE2F 

BD 

5 A 

02 

LOOK 

LDA $025A,X 

0185 

FE32 

C9 

04 



CMP #$04 

0186 

FE34 

B0 

06 



BCS KEEP 

0187 

FE36 

CA 




DEX 

0188 

FE 37 

DO 

F6 



BNE LOOK 

0189 

FE39 

8E 

43 

E8 

GIVEUP 

STX 59459 

0190 

FE3C 

60 



KEEP 

RTS 

0191 

FE3D 

EA 




NOP 

0192 

FE3E 

EA 




NOP 

0193 

FE3F 

EA 




NOP 

0194 

FE40 




r 


0195 

FE40 





*=$FE40 

0196 

FE40 

10 




.BYTE $10 

0197 

FE41 

02 




.BYTE $02 


LOOK AROUND THE FILE TABLE 
GOT AN IEEE OPEN AT THE MOMENT? 
YES SO HANG ON LIKE GRIM DEATH 


;CHUCK THE BUS AWAY 


;WEIGHTING ;PUT THESE BYTES HERE 
•CPU NUMBER ;THESE ARE DECIDED AT 
* INSTALLATION 


FE42 
FE42 
FE42 
FE42 
FE42 
FE42 
FE50 
FE51 
FE52 
FE5 3 
FE5 4 
FE55 
FE56 
FE59 
FE5A 
FE5B 
FE5C 
FE5D 
FE5E 
FE5F 
FE62 


8 THIS ONE WAS FORGOTTEN THE FIRST TRY WE MADE 
AT THIS CHEAP TRICK. THE DS AND DS$ GET THE 
bSs?£o CHANGE BYTES at FEED TO JMP FE50 


08 

48 

8A 

48 

98 

48 

20 FD FD 
68 
A8 
68 
AA 
68 
28 

4C 95 D9 


DS 


*=$ FE50 

PHP 

PHA 

TXA 

PHA 

TYA 

PHA 

JSR GETBUS 

PLA 

TAY 

PLA 

TAX 

PLA 

PLP 

JMP $D995 
.END 


;CALLED FROM FFBD 


;GRAB IT 


;AND RUN 


ERRORS = 0000 


SYMBOL TABLE 


SYMBOL VALUE 
CLOSE FD7A 

PXN FDDO 

HOG FDD9 

NOTEST FDA2 

PROG FDE8 

WAIT FE13 

END OF ASSEMBLY 


DS FE50 
GETBUS FDFD 
KEEP FE3C 
OFFBUS FE2B 
READY FDBl 


EXEC FD93 
GIVEUP FE39 
KEEP2 FDA5 
OPEN FD60 
TEST FD9D 


EXIT FD76 
GOTIT FE27 
LOOK FE2F 
PRINT FDC7 
TRY FE0B 
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VIC-20 

The friendly computer 


Another Voice for the VIC 


Normally, your VIC has 4 musical voices . . . three music 
registers and a white noise register . . . but by connecting a 
small amplifier and speaker to the USER PORT, and doing a 
little programming, you can get another musical voice. 

The user port on the VIC is very similar to the user port on the 
PET. This makes it easy to adapt some of the PET’s music 
methods to the VIC. 

Background—Adding Sound to Older PET/CBM’s 

Before Commodore introduced the CBM 8032 with a 
build-in speaker, most PET/CBM users had to develop their 
own means of getting their computers to squeek, hum, 
whistle, and sing. They came up with the idea of using the 
shift register of the 6522 connected to the user port to send 
square waves through an external amplifier/speaker combi¬ 
nation. The shift register could be programmed through 
BASIC, giving a wide variety of squeals, pops, sirens, etc. 

Theory 

Most music is made up of square waves of different 
amplitudes and frequencies. One of the functions of the 6522 
chip is to generate square waves through the CB2 line. If we 
connect the CB2 line to a speaker, we will be able to hear the 
square waves generated by the VIC. 

NOTE: Connecting a speaker directly to CB2 may damage 
your VIC and void your warranty. You must connect the 
speaker through an amplifier to protect the VIC. 

Parts Needed 

1. Small battery powered speaker/amplifier 

2. User Port Connector (12 position, 24 contact edge 
connector with . 145"spacing 

3. Wire 

Connecting The External Speaker to Your VIC 


Bb =251 

(B below first C) B 

= 124 

C =237 

(first C) 

Cl 

= 117 

C# =224 


Cl# 

= 111 

D =211 


D1 

= 104 

D# =199 


Dl# 

= 99 

E =188 


El 

= 93 

F =177 


FI 

= 88 

F# =167 


FI# 

= 83 

G =157 


G1 

= 78 

G# = 149 


Gl# 

= 73 

A =140 


A1 

= 69 

A# =132 





1. Wire the GROUND of the amplifier to the GROUND of 
the USER PORT (pin N). 

2. Wire the SIGNAL of the amplifier to the CB2 output of 
the USER PORT (pin M). 

You are now ready to add your other voice through a BASIC 
program. 


BASIC program steps: 

1. Set the 6522 shift register to free running mode by typing: 
POKE 37147,16 

2. Set the shift rate by typing: 

POKE 37144,C where C is an integer from 0 to 255 
C is the note to be played. 

3. Load the shift register by typing: 

POKE37146,D where D = 15, 51, or 85 for a square 

wave. This step sets the octave for the 
note. 

This step must be done last, since as soon as it is set, the VIC 
starts generating the square waves. 

The frequency of the square wave can be found by the 
following formula: 

FREQUENCY = 500000 Hz Where Dl=8 when D=15 

—- D 1=4 when D=51 

(C+2)(D1) D1 =2 when D=85 

When you’re in this mode, the VIC will not read or write to 
cassette. To restore normal operations, you must type: 
POKE 37147,0 

The following short program demonstrates music using this 
method. By hitting a letter a note will be played. 

10 PRINT “ MUSIC USING CB2.” 

11 REM A TO G IS ONE OCTAVE, SHIFT A TO G IS 
ANOTHER 

15 PRINT “HIT + TO GO UP AN OCTAVE” 

17 PRINT:PRINT “USE ! TO EXIT.” 

20 POKE3747,16:DIMA(14):FORI= 1T014: 

READA(I):NEXT 
40 GETA$IFA$=“”THEN40 
42 IFA$ = “!” THEN POKE37147,0:END:REM 
RESET 6522 

45 ifa$=“ + ” THEN SF=SF-(SF<2):GOTO40 
50 ifa$ = “-f ” THEN SF=SF-(SF>0):GOTO40 
60 A=ASC(A$)—64+(ASC(A$)> 192)* 121 :IF A>14 
OR A<1 THEN 40 
70 POKE 37144,A(A) 

80 POKE37146,-(SF=0)*15-(SF=1)*51-(SF=2)*85 
90 GOTO40 

100 DATA 124,117,104,93,88,78,69 
110 DATA 251,237,211,188,177,157,140 

One use for this procedure is to connect an external amplifier 
and speakers to your VIC to provide improved sound quality 
... or perhaps to use your VIC as a music synthesizer, with 
the proper program. This is only one of several hobbyist-type 
projects we will be describing in the VIC section of this 
magazine. Watch future issues for more hobby-related 
computer projects, n 

— Andy Finkel 
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Tiny-Aid For VIC-20 David A. Hook 

Barrie, Ont. 


Introduction 

Since the early days of the PET, various enhancements for 
BASIC have been available—Toolkit and Power are two 
commercial examples. Bill Seiler, then of Commodore, pro¬ 
duced the first public-domain version, called BASIC-Aid. 

Many updates, corrections and improvements have been 
made over the past couple of years. The PET/CBM program 
has ballooned to a 4K package for almost every flavour of 
equipment configuration. 

As has been customary in the Commodore community, Mr. 
Jim Butterfield developed a version of the BASIC-Aid. He 
called this TINYAID2 (or TINYAID4, for Basic 4.0). This 
offered the six most useful commands from the full-fledged 
program. 

Following is my modification of that work, designed to 
provide VIC users with the same benefits. After using this for 
a while, I think you will find the added commands nearly 
indispensible. 


program repacks itself into high memory. The appropriate 
pointers are set so that BASIC will not clobber it. VIC Tiny 
Aid is now alive. 

Once activated, five commands become attached to BASIC. 
They will function only in “direct” mode. i.e. don’t include 
them in a program. 

(1) NUMBER 1000,5 ‘RETURN’ 

NUMBER 100,10 

Renumbers a BASIC program with a given starting line 
number and given increment between line numbers. The 
maximum increment is 255. 

All references after GOTO, THEN, GOSUB and RUN are 
automatically corrected. A display of these lines is presented 
on the screen as it works. If a GOTO refers to a non-existent 
line number, then it is changed to 65535. This is an illegal 
line number, and must be corrected before the BASIC 
program is used. 


Features 

(2) DELETE 100-200 ‘RETURN’ 

VIC Tiny Aid is a machine language program which con- DELETE- 1500 

sumes about 1200 bytes of your RAM memory. After you DELETE 5199- 

have loaded the program, type ‘RUN’ and hit RETURN'. The 
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Deletes a range of lines from a BASIC program. Uses the 
same syntax as the LIST command, so any line-range may 
be specified for removal. DELETE with no range will per¬ 
form like a NEW command, so be careful. 


(3) FIND/PRINT/ ‘RETURN’ 

FIND/AS/, 150-670 
FIND "PRINT, 2000- 

Will locate any occurences of the characters between the “/” 
marks. Almost any character may mark the start/end of the 
string to be found, so long as both are the same. The first 
example will find all the PRINT instructions in the program. 

If you are looking for a string of text which contains a BASIC 
keyword, you must use the quote characters as markers. 
This will prevent the search string from being “tokenized”. 

If a limited line-range is desired, use the same syntax as for 
LIST. Note that a comma () must separate the line-range 
from the end marker. 

All lines containing the string are printed to the screen. If a 
line has more than one of them, each occurence will cause a 
repetiton of that line. 

(4) CHANGE -PRINl-PRINTM- ‘RETURN’ 

CHANGE /ABC/XYZ/, 6000- 
CHANGE /DS$/D1$/, -5000 

Using the same syntax as FIND, you may change any string 
to any other string in a BASIC program. This command is 
very powerful, and was not part of the early versions of 
Basic-Aid or Toolkit. 

As before, you may indicate a line-range. As the changes 
are made, the revised lines are displayed on the screen. 

Watch out for the difference between BASIC keywords and 
strings of text within quotes. You may use the quote charac¬ 
ters to differentiate, as with FIND. 


(5) KILL ‘RETURN’ 

This command disables VIC Tiny Aid and its associated 
commands. A syntax error will be the result if any of the 
above commands are now tried. 

Since the routine is safe from interference from BASIC, you 
may leave it active for as long as your machine stays on. It is 


possible that VIC Tiny Aid may interfere with other pro¬ 
grams that modify BASIC’s internal ‘CHRGOT’ routine. The 
KILL command allows you to avoid this conflict. 


Procedure 

The VIC contains no internal machine language monitor, 
which is really the only practical way to enter this program. 
So follow one of the three methods below to perform the 
task. 

(1) Borrow an Upgrade (2.0) or Basic 4.0 PET/CBM, with its 
internal ML monitor. This will be the easiest method to 
work with the program included. 

(2) Use your VIC-20, but you must have a machine language 
monitor: 

-Jim Butterfield’s TINYMON FOR VIC (Compute # 20, 
January 1982). -my adaption of SUPERMON FOR VIC 
(The Transactor, Volume 3, Issue *5). -VICMON car¬ 
tridge from Commodore. 

(3) The easy way (?). Send $3, a blank cassette or 1540/ 
2031/4040 diskette in a stamped, self-addressed mailer 
to me at: 

58 Steel Street 

BARRIE, Ontario, CANADA 

L4M 2E9 

Be sure its packaged securely. Diskettes will be returned in 
DOS 2.0 format. Only 2040 (DOS 1.0) owners need take 
extra care. (The programs need to be copied to a DOS 1.0 
formatted disk. Don’t SAVE or otherwise WRITE to the disk 
you get). 

If you are using a VIC, and have a 3K RAM or SUPEREXPAN¬ 
DER cartridge, plug this in. It will be somewhat easier to 
follow, since programs are then ‘‘PET-compatible” without 
further juggling. However don’t use the 8K or 16K expan¬ 
sion for this job. 

If you are familiar with the operation of the ML monitor, 
please skip ahead to the specifics below. 

You are about to type in about 2500 characters worth of 
“hexadecimal” numbers. In addition to the digits from zero 
to nine, the alphabetic characters from A-F represent num¬ 
bers from ten to fifteen. These characters, and three instruc¬ 
tions, will be all that are used to enter our program. You 
don’t have to understand the process—just type in the 


► 
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characters exactly. It’s not very exciting, but don’t be too 
intimidated by the “funny” display. 

Enter the machine language monitor program : 

TINYMON/SUPERMON FOR VIC - LOAD and RUN the 
program. 

PET/CBM - Type “SYS1024” and hit “RETURN” . 

VICMON Cartridge - “SYS 6*4096” or “SYS 10*4096” 
(depending on version you have), then type “RETURN” . 

NOTE: If you are working on the unexpanded VIC you will 
need to follow the alternate instructions in parentheses. 

The cursor will be flashing next to a period character ( ). 

Type the entry starting at the current cursor position: 

.M 0580 05C0 “RETURN” (.M 1180 1 ICO) 

Several lines should appear on the screen, much like the 
“memory-dump” which accompanies this article. A four- 
“digit” quantity called an “address” leads off a line, and 
either eight or five columns of two- "digit” values appear 
alongside. 

Look at the tables of values in the article. They show eight 
rows of these addresses. Note that the first “block” has the 
address “0580” , which matches the first address just above. 
The first row of the next table shows “05C0”, which is the 
second (or ending) address just above. 

Your mission is to type in the matching values from the 
article, in place of the two-“digit” values you see on the 
screen. 

Remember to hit “RETURN” at the end of each screen line, 
or the changes won’t be made. 

Double-check the values you’ve typed. It’s not easy to find 
an error later on. 

Look at the next block of values. Type in the start/end 
addresses to display: 

.M05C0 0600 “RETURN” (.M 11 CO 1200) 

Type in the values required and go on with the rest of the 
blocks. 

You will use addresses ranging from: 

05xx-06xx-07xx-08xx-09xx-0Axx 


as shown in the tables. The “x” characters stand for the 
other two “digits” of the address in the leftmost column. 

If you are working on the unexpanded VIC, the sequence of 
addresses is: 

11xx-12xx-13xx-14xx-15xx-16xx 

You will have to type these pairs of characters in place of the 
leading two shown just above. 

With that task complete, we are ready to preserve this work 
on tape. So type: 

.S "VIC AID.ML" ,01,0580,0AB6 “RETURN” 

(or .S"VIC AID.ML" ,01,1180,16B6 “RETURN”) 

Mount a blank tape, and follow the instructions. Save a 
second copy, for safety. 

Exit the ML monitor, with: 

.X “RETURN” 

VERIFY the program normally before going any further. 

Now comes the easy part. Type “NEW”, then the BASIC 
listing. Enter this exactly, without including any extra text. 
Save this as “VIC AID.BAS” and VERIFY it. 

Finally, LOAD “VIC AID.ML” and SAVE “VIC AID.REL” on 
another blank tape. Both the BASIC part and the machine 
language part have been SAVEd together. 


Check-Out 

We are going to check out the machine language using a 
“checksum” method. Type in “NEW” before proceeding. 
Now enter the following program: 

10 i = 0 : rem (i = 3072 for unexpanded VIC) 

20 t = 0 : for j = 1408 +i to 2741 +i 
30 t = t + peek(j) 

40 next j 
50 print t 

After a few seconds, if the value 161705 appears, you’ve 
likely got it perfect. Go to the next section. 

If not, there’s at least one incorrect entry. Change the two 
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values in Line 20, using the table below. Re-RUN the 
program and compare against the value in the third column. 

Repeat the process for each row, noting any that don’t 
match. Each row corresponds to two “blocks” from the last 
section. You will have to re-enter the ML monitor to re- 
-check those sections that differ. Re-SAVE the ML part!!! 


Block* 

Value 1 

Value 2 

Checksum 

1- 2 

1408 

1535 

15201 

3- 4 

1536 

1663 

17221 

5- 6 

1664 

1791 

15925 

7- 8 

1792 

1919 

15117 

9-10 

1920 

2047 

15565 

11-12 

2048 

2175 

14141 

13-14 

2176 

2303 

15840 

15-16 

2304 

2431 

16276 

17-18 

2432 

2559 

15152 

19-20 

2560 

2687 

15194 

21 

2688 

2741 

6073 


Operation 

The final acid test. ReLOAD the program from tape and RUN 
it. The screen will clear and a brief summary of the added 
commands will be displayed. The cursor should return 
almost instantly, under the “READY.” message. 

If the cursor does not come back, there is something still 
amiss. All the values appearing in the article were produced 
from a working copy of the program (Honest!). You still have 
option (3) from the Procedure section available. If you do 
send a tape/disk now, include your non-functioning ver¬ 
sion. I can then do a compare, to see where the error(s) were. 

This has been a massive exercise, and mistakes can easily 
creep in. Your comments are welcome. 


1 

print "1 

Q vie tiny aid" 

2 

print "| 

Q adapted for vie by:" 

3 

print" 

david a. hook" 

4 

print "| 

Q from ‘tiny aid’ by:" 

5 

print" 

Jim butterfieid" 

6 

print "| 

Q and 'basic aid’ by:" 

7 

print" 

bill seiler" 

8 

print 1 

; Hsample commands: 

9 

print "| 

Hjchange /?/print*4,/" 

10 

print" 

find .gosub., 200-" 

11 

print" 

delete 130-625" 

12 

print" 

number 100,5" 

13 

print" 

kill (vie aid)" 

14 

sys (peek (43) + peek (44)*256 
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00 

C6 

fb 

00 

0730 00 

00 

fO 

03 

20 

fd 

ce 

20 

08f0 7c 

fe 

00 c8 

bl 

ae 

30 

d6 

OabO 

98 

fe 

00 

ac 

fb 

00 

aa 

aa 

0738 b2 

fd 

00 

a5 

5f 

a6 

60 85 

08f8 20 

d2 

ff 

dO 

f6 

20 

d7 

ca 

0ab8 

aa 

aa 

aa 

aa 

aa 

aa 

aa 

aa 
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COMMODORE 64K MEMORY 
EXPANSION BOARD 

By Ira Neal 

The Commodore 64 Memory Expansion Board adds 64K bytes of 
memory to the Commodore 8032, providing a total of 96K bytes of 
available RAM. The expansion memory board can be used with 
commercial software packages like Wordcraft, Wordcraft Ultra, 

Visicalc, and Silicon Office or with the extended BASIC language 
provided with the board. 


The add-on memory is mapped into 
four 16K byte blocks Only two of 
these blocks can reside in memory at 
one time. The expansion RAM is 
mapped in the same address space 
normally allocated for the system 


ROMs, I/O registers and screen 
memory (See Fig. 1). The expansion 
board is disabled at power up, so the 
8032 will display 31743 bytes free. 
The expansion RAM is accessed by a 
write-only control register at location 


$ FFFO (See Fig. 2). The function of the 
control bits in this register are as 
follows: 
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CONTROL REGISTER BIT 0 - 
When equal to 1, addresses$8000 
through $BFFF on the Expansion 
Memory Board are write protected. 
The screen is not protected if 
screen peek through is enabled. 
When equal to 0, the addresses are 
not write protected. 

CONTROL REGISTER BIT 1 - 
When equal to 1, addresses$C000 
though $FFFF on the Expansion 
Memory Board are write protected. 
The I/O registers are not write 
protected if I/O peek through is 
enabled. When equal to 0, the 
addresses are not protected. 

CONTROL REGISTER BIT 2 - 
When equal to 1, block 1 is 
selected. When equal to 0, block 0 
is selected. These blocks are 16K 
bytes and reside at locations 
$8000 through $BFFF. 

CONTROL REGISTER BIT 3 - 
When equal to 1, block 3 is 
selected. When equal to 0, block 2 
is selected. These blocks are 16K 
bytes and reside at locations 
$C000 through $FFFF. 

CONTROL REGISTER BIT 4 - 
Reserved. No function. 

CONTROL REGISTER BIT 5 - 
When equal to 1, screen peek 
through is enabled. This allows the 
screen memory to locations $8000 
through $87FF to be accessed. 

CONTROL REGISTER BIT 6 - 
When equal to 1, I/O peek through 
is enabled. This allows the I/O 
register at locations $E800 through 
$EFFF to be accessed. 

CONTROL REGISTER BIT 7 - 
When equal to 1, enables the 
expansion memory and the above 
registers Bit 7 defaults to 0 on 
power up. 

A diskette containing programs for 


testing and controlling the expansion 
emory is supplied with the board. 
These include: ‘8032.MEM.PRG’ a 
diagnostic test program, ‘EXPANDED 
DEMO’ a demonstration of the use of 
the expansion memory as a ‘fast disk, 
‘EXPANDED-BASIC’ a program to add 
expanded memory functions to 
Commodore BASIC, ‘ADD-ON-MON’ 
a TIM monitor with addition functions 
for the expanded memory, and ‘ADD- 
ON-LOAD’ a program that enables the 
loading of different operating systems 
EXPANDED-BASIC is a software 
routine that is loaded into high 
memory ($7800-$7BE0), leaving 29K 
bytes of contiguous BASIC program 
space in lower memory. This program 
is a psuedo-cache memory system, or 
‘fast-disk, that allows users to store or 
‘cache’ programs and data in the 
expansion RAM area for ultra high¬ 
speed access The following instructions 
are added to BASIC: 

RECALL 

Format! r,0:”filename”,s(u)(p),device 
Purpose: Cache a file from disk. 

LOAD 

Format: II,”program name" 
Purpose: Move data from ADD-ON 
to BASIC text area 
OVERLAY 

Format: !o,’’program name" 
Purpose: Overlays data from ADD¬ 
ON to current program in BASIC 
text area 
EXECUTE 

Format: !e,"program name” 
Purpose: Clears BASIC text area 
Moves data from ADD-ON to 
BASIC text area and executes 
program. 

QUIT 
Format: !q 

Purpose: Turn off expanded BASIC 
functions 


The programs and files are placed 
in the expansion memory in a 
contiguous manner. If data will not fit 
in the first expansion memory bank, 
wraparound will occur. All 64K bytes 
are available; however, the number of 
cached files is limited to ten. 

ADD-ON-LOAD is a special loader 
which loads one of the three special 
versions of BASIC, provided on the 
supplied diskette. These BASIC 
systems are loaded into the expansion 
RAM to enable the execution of 40- 
column or 2.0 BASIC programs on the 
8032. The supplied BASIC systems 
are: ‘BASIC 2.0’, a copy of 2.0 BASIC 
with a patch to re-initialise the 8032’s 
screen controller; ‘BASIC 4.0/40’, a 
copy of the BASIC found in 4000 
series machines; ‘BASIC 4.0/80’, a 
copy of the BASIC that is resident in 
the 8032. 

In assembly language programming 
all 96K bytes of memory are available 
to the advanced assembly language 
programmer. They must remember 
that monitor calls can only be 
executed with the expansion RAM 
disabled, and the expansion RAM 
banks must be switched to access 
more than 64K bytes of contiguous 
memory. 

The 64K Expansion Memory Board 
can be installed quickly with the 
supplied instructions. After installation is 
complete the correct operation can 
be verified by the execution of the 
■EXPANDED DEMO’ and ‘8032.MEM. 
PRG’.The’EXPANDED DEMO 1 program 
caches four programs in the unexp¬ 
anded RAM and executes them one at 
a time. The ‘8032.MEM.PRG’ is a 
diagnostic test program for the 
expansion RAM. 
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Figure 1 
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PROGRAMMER’S TIPS 


Accessing the SuperPET 
RS-232 Port 

Using the SuperPET’s RS-232 serial 
port from the 6809 processor is made 
easy because of communication rou¬ 
tines included in ROM and the 
SETUP menu which allows selection 
of stop-bit, parity and baud rate 
options. However, one of the great 
mysteries of the SuperPET has been 
how to access the RS-232 serial port 
using the 6502 processor. So, this 
month we will try to remove some of 
that mystery by providing details of 
register addresses and formats for 
programming the serial port. 

The serial port on the SuperPET is a 
6551 Asynchronous Communication 
Interface Adapter (ACIA) manufac¬ 
tured by Commodore Semiconduc¬ 
tor Group. The ACIA uses a single 
+ 5 volt power supply, features an 
on-chip baud-rate generator and is 
capable of half-duplex or full-duplex 
operation. Word length, number of 
stop-bits, parity generation/checking 
and baud-rate are all programmable. 

The ACIA is seen by both SuperPET 
microprocessors as four memory 
locations at address (hexadecimal) 
$EFF0-$EFF3. Input/output and 
programming of the ACIA is done 
by writing to or reading from these 
addresses as shown in Table 1. 



Table 1. SuperPET ACIA Memory Locations 

Memory Address WRITE Access 

READ Access 

SEFFO 

Fill Transmitter 

Unload Receiver 


Data Register 

Data Register 

$EFF1 

Programmed Reset 
(Use any data) 

Read Status Register 

$EFF2 

Program Command Register 

Read Command Register 

SEFF3 

Program Control Register 

Read Control Register 

Table 2. ACIA Control Register Programming 


The Control Register is used to select the desired operating mode for the 
ACIA. The word-length, number of stop-bits, clock control and baud-rate are 
all programmed via the Control Register as shown in Table 2. 


Control Bits 

Control Function 

Valid Data Values 

7 

Number of Stop Bits 

0 = 1 Stop Bit 



1 = 2 Stop Bits 

6-5 

Set Word Length 

00= 8 bits 


(1.5 stop bits if 

01 =7 bits 


5 bits + Parity) 

02 = 6 bits 

03 = 5 bits 

4 

Select Clock Source 

0 = External Clock 


(Always set to “1”) 

1 = Baud-rate Generator 

3-0 

Select Baud-rate 

$0 (Flex) = Not Used 

$1 = 50 Baud 

$2 = 75 

$3= 110 

$4=134.5 

$5= 150 

$6 = 300 

$7 = 600 

$8=1200 

$9=1800 

$A = 2400 

$B = 3600 

$C = 4800 

$D = 7200 

$E = 9600 

$F= 19200 
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Table 3. ACIA Command Register Programming 

The Command Register in the 6551 ACIA is used to control parity generation/ 
checking, receiver echo and transmit/receive functions as shown in Table 3. 

Command Bits Command Function 

Valid Data Values 

7-5 

Set Parity Options 

xxO = Parity Disabled 

001 =Odd Parity on 

Xmit & Recv 

011= Even Parity on 

Xmit & Recv 

101 = Mark Parity Xmit 
Recv Parity Disabled 
111= Space Parity Xmit 
Recv Parity Disabled 

4 

Set Normal/Echo Mode 

0 = Normal (No Echo) 

1 = Echo for Receiver 

3-2 

Transmitter Control 

00 = Xmitter Disabled, 

No Request-to-Send 

01 = Xmitter Enabled, 
Request-to-Send 

10 = Xmitter Disabled, 

Request-to-Send 

11 = Xmitter Disabled, 

Request-to-Send 
(Transmit BRK) 

1 

Receiver Interrupt Enable 

0 = Inteyupt Enabled from 
Status Register Bit 0 

1 = Interrupt Disabled 

0 

Data Terminal Ready 

0 = Disable Recvr/Xmitter 

1 = Enable Recvr/Xmitter 

Table 4. ACIA Status Register Definitions 


The Status Register is a read-only register which provides the processor with 
the status of various ACIA functions. The format of the Status Register is 
outlined in Table 4. 


Status Bits 

0* 

Status Functions and Values 

1 = Parity Error Detected 

0 = No Parity Error 

1* 

1 = Framing Error Detected 

0 = No Framing Error 

2* 

1 = Overrun Has Occurred 

0 = No Overrun 

3 

1 = Receiver Data 

0 = Receiver Not Full 

4 

Register is Full 

1 = Transmitter Data 

0 = Xmitter Not Empty 

5 

Register is Empty 

1 = No Data Carrier 

0 = Carrier Detected 

6 

1 = Data Set Not Ready 

0 = Data Set Ready 

7 

1 = Interrupt Requested 

0 = No Interrupt Request 

* 

No Interrupt Request occurs for these status conditions ■ 


Weekday Calculator 

This neat little subroutine returns the 
day of the week for any date given in 
DAY/MONTH/YEAR format. Of 
course you could change it around 
for YEAR/MONTH/DAY— just 
alter the order of the variables fol¬ 
lowing the INPUT statement. The 
program does not check for date 
validity . . . but that’s no problem. 
Just do some testing for day greater 
than 31 some months, 30 other 
months and 28 for February. For 
leap years, do an extra test of 
YEAR/4 = INT(YEAR/4) in the case 
of Feb.29. 

100 INPUT “DD, MM, YYYY";D,M,Y 
110 K = INT( (60+ (100/M))/100 ) 

120 F = 365 * Y + D + 31 * (M - 1) - 

1NT(.4*M + 2.3) * (1 - K) 

130 F=F + INT((Y - K/4) - 

INT(.75*( INT((Y - K) / 100+ 1))) 

140 F = F — INT(F/7) * 7 
150 PRINT M1DS 

( “SATSUNMONTUEWEDTHUFRI”, 

F * 3 + 1,3) a 


SYS ’EM! 

Two useful SYS addresses to note: 

SYS 64790 
SYS 54386 

The first does a jump to ‘warm 
start’—as if turning the machine off 
and back on again, but without that 
nasty power interruption. The sec¬ 
ond can be extremely handy when 
you want to send an M.L.M. mem¬ 
ory dump to the printer. It seems that 
breaking to the monitor with SYS 4 
cancels any CMD status you may 
have set up previously. H 


— Dave Middleton 
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MAGAZINE SUBSCRIPTIONS 


NAME. 

ADDRESS 


SUBURB.POSTCODE 

(new or renewed subscritions 
received prior to February 21 st) 

$A25.00 (Australia) 

$A30.00 (Overseas) 

Please enclose your remittance 
with this renewal and send to: 

COMMODORE MAGAZINE 
P.O. BOX 336 
ARTARMON 
NSW 2064 
AUSTRALIA 

Please assist by completing 
the following section: 

I am a VIC user □ 

CBM 8000 user □ 

PET 4000 userD 


I am writing programs □ 

using standard programs u 

What information would you like to see published.. 




I am using disk drives □ 

printers □ 
cassette □ 
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The introduction of Wordcraft 20 for the VIC brings 
the benefits and advantages of full scale word 
processing directly to the general public. 

Until now only the business world could afford word 
processing systems but this amazing price 
breakthrough makes it available to everyone. 
Wordcraft 20 comes on a cartridge ready to plug 
into the back of the VIC. Included in the cartridge is 
an extra 8K of RAM that is also available for use 
with other programs - so not only do you get a 
word processor but you also get a memory 
expansion thrown in. The system also comes with 
complete documentation catering both for the 
inexperienced user and for those already familiar 
with Wordcraft 80. 

Just look at these features: 

★ Full use of colour and sound. 

★ Full compatibility with VIC 1515 printer, parallel 
printers or RS232C serial printers. 

★ Full control over margins, document width, tab 


stops, decimal tabs, justified output, multiple 
copies. Complete control of the final output. 

★ Automatic underlining and emboldening. 

★ Full screen display with automatic paging. 

★ Full storage and retrieval facilities from disk and 
tape. 

★ Full compatibility with Wordcraft 80. 

★ Name and address capabilities - including 
labels. 

★ Full document merging facilities. 

Wordcraft 20. The package that the VIC user has 
been waiting for. A word processor of proven 
quality at a low price. 

For the first time ever, every home can have one. 


ELE 

Sa/ 


ELECTRONICS 


416 LOGAN RD.(PacificHwy) STONES 
CORNER, BRISBANE. TEL: (07) 397 0808, 

397 0888 P.O. Box274,SUNNYBANKQLD.4109. TELEX AA40811 


WORD PROCESSING 


V 
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v — TELEPHONE DIALER 

Turn your VIC 20 into a combination teledex and 
telephone dial. J ust tell the VIC what name you want 
^ and presto! Other features included $119 

VIC 20 40/80 COLUMN CARTRIDGE 


O* 




o 


<? 


Gives you 40-80 
characters a column 
(not colour) with all VIC 
and CBM graphic chara¬ 
cters. Whats more it plugs 
into a standard off-the-shelf 
VIC 20- no expansion required. 
This little beauty will load all PET/ 
CBM programmes and has all cursor 
controlled upper and lower case. 

The unit is switchable from basic with out 






lai&wh 


m nitHimillll 4m « • col m art hr t* vie a HimmttfM 


losing program it requires no external power supply. Works well with 32 k expansion if you 
wish. $259.95 


NOTE: Our promotions manager is sorry but it seems that we ve not been too clear on 
previous advertisments for this unit! - THE VIC 20 40/80 CARTRIDGE WILL WORK ON A 
STANDARD OFF-THE-SHELF VIC20.with no expansion required. 

INSTANT ROM EXPANSION CARTRIDGE 

This cartridge allows you to expand to 32k with INSTANT ROM - NO MOTHER BOARD 
REQUIRED - 

The cartridge this cartridge permitsothers to piQQy back onto it giving these exclusive 
features • Expansion to32kwith no motherboard • While using the cartridge slot it still 
permits use of other cartridges • INSTANT ROM permits you to switch the VIC 20 off 
without losing its memory • no additional power source required. $199 

INSTANT ROM p.o.a. 


EPROM PROGRAMMER 

A must for the serious computerist and software developer. This unit includes all cables 
and interface program is in EPROM. $229 


TDK-20 HAM INTERFACE 

The TDK-20 is a complete RTTY and Morse code system for the VIC 20 computer. It is 
delivered in a single cartridge, which is plugged into a standard off-the-shelf VIC 20 or 
into an expansion board. Connect to your transciever (amatuer radio operators) or 
reciever (shortwave listeners) and away you go. 


Features include • on board converter • LED tuning indicator • All shifts available: 
170,225, 425-850HZ • instant break operation • WRU 


Send for fuller details. 


$229 

other optional extras include VIC CENTRE AFSK board $ 49 


iLiCTROMiOi 

Saa 


12 vlt transformer $6.50 
User port plug (1 required) $6.50 

DEALER ENQUIRIES WELCOME 



Prices and specifications subject to change without notice 
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CANYON BOMBER 

by Simon Holmes, 

Maori Hill, 

DUNEDIN, 

NEW ZEALAND 

This program was written on a 4032 computer but only uses 2K of 
memory. 

The object is to drop bombs from the airship, using the space bar, 
and attempt to destroy the dots. 

It is a copy of a relatively old arcade game of the same name. 


READY. 


9 F'R I NT " □" : REM : CRNVON BOMBER 


18 : 

11 RERDR* :IFR$="*"THEN16 

12 PRINTTRB<20-<LEM<R$ >/2 >>;R$:GOTO11 

13 DATA"HSlSF'LAV CRNVON B0MBER", "HSJBV SIMON HOLMES", 

14 DRTR"HOSING SPACE","HH- 

15 DATA"HS" .r" /—s" , " V_*»” 

16 IFPEEK< 152>=1THEN23 

17 X=32768:R=1:0=15 

18 X=X+A:POKE*,0:FORI = 1TO10:1FPEEK<152 > = 1THEN23 

19 NEXT : POKEX,32:1FX=32790THENR=40 

20 I FPEEK (. X+fl >032THEN22 

21 GOTO18 

22 POKEX+Rr15 

23 IFPEEK <152 >=0THEN23 

99 : 

100 PRINT"3":CLR 

110 P0KE59467 .. 16 : P0KE594661 : P0KE59464 .0 
120 PRINT"3":FORI=1TO10:PRINT:NEXT 

130 print" 


"HSPROP BOMBS FROM AIRSHIP" 

%"H HIT at SHIFT IS TO CONTINUE' 


140 PRINT ,i MMMMMMM< 
150 

i 60 pr i nt " mmmmmm—**' 
170 pr i nt' ''mmmmmm*** 

180 PRINT"HHHHWtMl 

190 print ''wmmmmmm** 
200 pr i nt ■■ mm mfflffimm mn 
210 print ''mmmmmmmm' 



220 printscore: wmw 

230 pr i nt 


250 R=.5:S=1:P=32850 

260 2#="/ — -.HMHIT- J Hill “ ZHIIir : REM: RIRSHIP GRRPHIC 

270 V«=" — filiilG — Hilll H 3 IIIII" :REM:ERASE RIRSHIP 


275 : 

280 PRINT ,, a"SPC<<S>>Z$:GETB$:IFB$=" "THEN 1000 

290 S=S+A:P=P+R 

300 IFS<10RS>36THENR=—fl 

315 P0KE59464,255:FORI = 1T02:NEXT:P0KE59464,0 
320 PRINT"3"SPC< <S-R> >V*:GOTO280 
325 : 

1000 REM: BOMB DROPPING ROVERFLOWINE 

1010 HH=0 : HH= I NT < RND < 0 > *4 > + 4 : H=0 

1020 S0=1:DC=SC:FORI=P+40TO33688STEP40 

1030 PE=PEEK -r I +40 > : I FPE= 102THENPOKEI , 32: GOTO 1080 

1040 IFPE=81THENSC=SC+1:H=H+1 

1045 pr i nt ■■ sc 

1050 IFSC=203THEN3010 
1060 IFHHCHTHENP0KE59464,0:GOTO1080 
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1070 POKE I , 46 : SO=SO+10 : P0KE59464 , SO : FORO= 1 TO 10 : POKE I , 32 : NEXTO, I 
1080 IFDC=SCTHENM=M+1:POKE53464,250:FORVV=1TO100sNEXT:POKE59464,0 
1030 PR I NT " W* W M 

1100 P0KE534640 :1 FM>5THEN20©0 
Ul0 GOTO280 
1120 ; 

4000 REM: END MESSAGE ROVERFLOWINE 
4010 MT="d SORRV, THATS SIX MISSES ■” 

4020 PRINT"afiSSSS"TAB<8>MT 

4030 MT= "HIT SHI FT FOR NEW GAME " : PR I NT " H" SPC < 3 > MT : FOR I = 1 TO 10 : GET AT : NEXT 
*040 IFPEEK 152 > =0THEH2040 
4050 FORI=1TO10:GETAT:GOTO100 
4055 ■ 


:;000 REM: WINNING MESSAGE 

X;010 FOR I =255T01 STEP-5 : P0KE59466 , I : P0KE53464I : NEXT : P0KE59464 ,0 

:f;020 MT= " a WELL DONE ! VOIJ WON ■" : FOR I = 1TOLEN < MT > : PR I NT " 9al5lSlS3 , ‘LEFTT < MT , I > 

:f030 FORW= 1T025 : NEXTW , I 


"040 GOTO2030 

r eaov. 


— 

Pittwater 
Computer 



NOW 

AVAILABLE 


22 CARTER RD„ 
BROOKVALE (02) 939 6760 


The Electronic Cash Book on both the 4000 Series 
and the 8000 Series Commodore Computers. 

This programme is designed to exactly emulate the 
hand-written Cash Book but has the added features of 
keeping a running bank balance; automatic deductions of 
periodical payments -full details of these are kept on 
file; reconciliation with the bank statements and a 
printed list of unreconciled cheques. 

It has full budgetry figures; automatic searches via 
cheque number, payee or amount; also full reporting 
functions with transaction listings, dissection summaries, 
and detailed dissection listings. Depending upon the 
version, there is up to 39 incoming dissections and 59 
out going dissections. 

We also advise that the 8000 Series will flow directly 
into the IMS/COMMODORE General Ledger, thus 
making it the ideal package for small businesses. 

The retail price is $400.00 plus tax, where applicable. 
Please contact your local dealer or Pittwater 

Computer Sales 
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DOS 1.2 PROBLEMS 



1. SAVE WITH REPLACE 

This command sometimes fails but 
the cause is not really known. It 
usually only happens on disks which 
have a lot of files and not a great deal 
of free space. The effect is to chain 
into other programs or files on the 
disk. 

2. RENAME 

This fails occasionally even though 
the disk system gives the ’00,ok,00,00’ 
message, the cause once again is not 
really known but it may fail due to 
there being scratched entries on the 
disk or the number of disk entries is a 
multiple df eight (ie. a full block). 

3. DUPLICATE 

If a disk is removed while doing a 
duplicate there is a very good chance 
that it will be totally corrupted so make 
sure that disks to be duplicated are in 
the correct drive before starting the 
command. 

4. WRITE PROTECT TAB 

Writing to a disk with a write protect 
tab is attempted. Then when a 
command is later given to read the 
disk, even if it has a write protect tab 
on, at least one write will be made. The 
solution is to power the disk drive 
down completely and then start again. 

5. SEQUENTIAL FILES 

If a sequential file of 254 characters 
(or any multiple) is written to the disk 
then an extra carriage return is added 
to the end of the file. 

6. BLOCK ALLOCATE 

The best way to use this command 
is to convert numbers into strings and 
concatennate this to the command 
before sending the command down 
the error channel. 

7. ILLEGAL TRACK AND 
SECTOR 

If illegal track or sector command 
parameters are given to the block 
commands then partial overlaying of 
error messages results. 


8. BLOCK FREE 

If an unallocated block is freed, the 
block count is automatically incremen¬ 
ted by one and thus an incorrect 
number of blocks free can be 
generated ie. more than 670! Validate 
will restore the correct number of 
blocks. 

9. VALIDATE 1 

If an error occurs while validation of 
a diskette is taking place, then the 
BAM will be left in an indeterminate 
state. Re-initialisation of the diskette 
is necessary in order to restore the 
disk. 

10. VALIDATE 2 

The validate command frees any 
sectors allocated for random access. 

11. SAVE AND OPEN 
WITHOUT GIVING A DRIVE 
NUMBER 

This causes partial updating on both 
drives, thus corrupting both BAMs. 
This bug is probably the cause of more 
disk corruption problems than all the 
others put together, and may actually 
be the cause of some failures such as 
save with replaces 

12. DOS HANDLING OF 
THE IEEE BUS 

Occasionally during multiple ‘GET 
the disk unit transmits a data byte 


onto the bus, even when the PET has 
Attention high. This gives the appear¬ 
ance that the PET is sending a 
command to all other peripherals on 
the bus 


13. USING ASTERISK AS 
THE FILENAME 

An asterisk may be used as the 
filenme to access the last LOADed or 
SAVEd program. If the last program 
was saved with replace, then the 
asterisk accesses the old version of 
the program (which has now been 
scratched from the directory) rather 
than the program which was just 
saved. 

14. MEMORY READ 

The byte returned by a memory read 
operation is not accompanied by a 
carriage return so use GET to access 
the character. 

RELATIVE 
RECORDS BUG 

This is a serious bug in the relative 
record system in both DOS 2.1 and 
2.5. The bug only occurs when two 
files have been opened for reading 
and writing. The bug only shows at 
certain length records and at set 
distances through the file. The 
following example demonstrates the 
bug:- 
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30 DOPEN //l,"KEYTEST",L13,DO 
40 FOR 3=11 TO 50-100 

50 A$=STR$n)+"ttt(-ttttttt»ttn-n.M-":A$ — MID$(A$,2,13) 
70 RECORD//1,(3) 

80 PRINT//1,A$ 

90 NEXT 
100 DCLOSE//1 

110 DOPEN//2,"FILETEST",L254,DO 
120 FOR 3=1 TO 50 
1 30 B$ = STR$(3)+ 

140 REORD//2,(3):PRINT//2,B$:NEXT 
150 DC LOSE# 2 

190 DOPEN// l,"KEYTEST",L13,DO 

200 FOR 3=1 TO 50: INPUT//1,A$:PR I NTA$:NEXT 

210 DC LOSE // 1 

220 DOPENL2,"FILETEST",L254,DO 

230 FOR 3=1 TO 50:1 N P U T//2, A$: PR I N T A$: N E X T 

240 DC LOSE// 2 

250 P R I N T" P R ESS A KEY 

260 GETZ$:IFZ$ = ""GOTO260 

280 DOPEN// l,"KE YTEST",L13, DO 

290 DOPEN//2,"FILETEST",L254, DO 

300 X= 34 

310 FOR 3=1 TO X:INPUT//1,A$ 

3 20 PRINTA$:NEXT 
330 RECOR D//2,25 
340 INPUT//2,8$ 

350 PRIN TB$ 

370 FOR 3 = X TO 50 

380 A$=LEFT$( A$, 9) + " TEST" 

390 RECORD//1,(3) 

4 00 P R I N T //1, A $ 

410 PR IN TA$ 

420 INPUT//1,A$ 

4 30 NEXT 

440 DC LOSE//1 
4.50 DC LOSE//2 

510 DOPEN// 1,"KEYTEST"L1 3, DO 

5 20 FOR 3=1 TO 5 0: I N P U T // 1 , A $ , P R I N T A$: N E X T 
530 DC LOSE 


The program sets up 2 files (30 - 
250) with unique recorda The first 34 
records are read from ‘Keytesf then a 
record is read from ‘Filetesf. Now 
records on‘Keytesf are updated. Both 
files are then closed (280 - 450). When 
‘Keytesf is read again some of the 
updated records are unchanged. In 
this example, records 34 - 40 are the 
same a they were originally. 

Thus it is not possibe to have two 
relative files open for reading/writing 
at the same time with any degree of 
certainty that records will be updated 
correctly. 

There are three solutions to this:- 

1. Open and close each file 
before accessing another. 

2. Thoroughly test the record 
length chosen to see that it does 
not cause the bug. 

3. This solution has no reason for 
working but it cured the bug in the 
example program so try it at your 
own risk: When the files are opened 
in lines 280 and 290, position the 
record pointer at record number 1, 
read it into the PET, reset the 
record pointer to 1 and then write it 
out again. The file then reads and 
updates correctly. Do this for both 
files. 


The following changes are to an article on the Data Cassette in the 
last issue of the Commodore Magazine. 


ISSUE 7, PAGE 11 

PROGRAM 1 

5 OPEN 1,1,1,“TESTFILE” 

10 FOR 0=1 TO 3 
20INPUTAS 

30 A$=LEFT$(A$+“ ”,10) 

40 PRINT#1,A$; 

50 NEXTC 

60 PRINT#1 ,CHR$(13); 

70 CLOSE1 

PROGRAM 2 
5 OPEN1,1,0,“TESTFILE” 

10 FOR C=1 TO 30:GET#1,B$: 

A$=A$+B$: NEXTC 
30 CLOSE1 
40 B$=LEFT$(A$,10) 

50 C$= MI D$(A$, 10,10) 

60 D$=RIGHT$(A$,10) 

70 PRINT A$,B$,C$,D$ 


ISSUE 7, PAGE 12 

PROGRAM 1 

10 REM PROGRAM TO WRITE DATA 
ONTO THE TAPE IN BLOCKS OF 
191 BYTES 

20 OPEN1,1,1 .“TESTFILE’ 

30 FORC=1T05 

40 PRI NT# 11234”;CH R$( 13); 

“FRED”;CHR$(13); 

50 NEXTC 
70 CLOSE1:END 
100 REM WRITE OUT BUFFER 
ONTO TAPE 

110 POKE 166,191 :REM SET 
POINTER TO LIMIT-1 
120 PRINT#1,“ :REM PUT THE 
192ND CHAR INTO BUFFER 
130 POKE 166,0 :REM RESET 
POINTER FOR MOE DATA 
140 RETURN 


PROGRAM 2 

10 REM PROGRAM TO WRITE DATA 
TOO THE TAPE IN BLOCKS OF 
191 BYTES 

20 OPEN1,1,1,'“TESTFILE” 

30 FORC=1 T05 
40 PR!NT#1,“1234”;CHR$(13); 

“FRED”;CHR$(13); 

50 GOSUB 100 
60 NEXTC 
70 CLOSE1:END 
100 REM WRITE OUT BUFFER 
ONTO TAPE 

110 POKE 166,191 :REM SET 
POINTER TO LIMIT-1 
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Keyed Random Access for the PETACBM 

by 

Glen Pearce 

Commodore Johannesburg 


Since the advent of Relative Files and the large storage 
capacity of the CBM 8050 Disk, some form of ‘K.R.A.’ 
(Keyed Random Access) would be useful to make full use 
of these facilities. Here is a version that meets most of the 
specifications of K.R.A., but is relatively (excuse the 
pun!) easy to use. It works as follows: 

An ordinary sequential file is used to store a ‘key-file’ of 
all records held within a system (e.g. Stock, Accounts, 
Clients, etc.). This key-file would normally contain the 
first 10 characters of a customer’s name (Part #, Account 
#, etc.) followed by the Relative Record Number of the 
record containing the remaining data for that customer. 

Now, all you have to do is search through this key-file 
until you find the record you’re looking for; retrieve the 
relative record number and you have access to the main 
record. The only problem in doing this in BASIC is 
time—especially if you have 500 to 1000 records or more! 

Here is a machine-code routine which will do the above 
significantly faster (it searches through 500 ten-character 
record keys in approximately 4 seconds). This routine 
may only be used with BASIC 4.0 and DOS 2.0. Here’s 
how you use it: 

The length of each record in the key-file (SEQ) is not 
important and it may contain any valid ASCII characters 
(for safety’s sake, stick to alpha-numerics only). To sepa¬ 
rate the record-key from the associated relative record 
number, a delimiter must be used. In this case the delim¬ 
iter is a ‘#’ symbol. Therefore, a record in the SEQ key- 
file should look something like: 

SMITH# 1234 

The space between the delimiter and the rel/rec number is 
the sign of the number and can be suppressed if space¬ 
saving on the disk is necessary. 

It is important that each record in the key-file be sepa¬ 
rated by a Carriage Return—CHR$( 13). This shouldn’t 
present any problem as the PET/CBM automatically 
sends this character after each PRINT# command. 

The K.R.A. machine code program must be located at 
the top of memory and protected in the usual way: 

POKE 53, 127: POKE 52,0:CLR 
. . . must be the first statement in your program. 

This program also allows you to do a form of “pattern¬ 
matching.” Say, for instance, you don’t know the exact 
spelling of a record-key in the key-file. All you do is enter 


the first few characters of the record-key and allow the 
program to search for that. When a ‘match’ is found in 
the file, the attached rel/rec number will be returned. 
You could then retrieve that relative record and display it. 
If it is NOT the correct record, simply tell the program to 
continue searching the key-file until it finds another 
match and so on. If NO match is found, a relative record 
number of 0 (zero) will be returned by the K.R.A. rou¬ 
tine. 

Here is an example of a BASIC program using the rou¬ 
tine: 

100A$="":A = 0:REM INITIALIZE VARIABLES 
BEFORE USING K.R.A. 

110 INPUT “ENTER SEARCH-STRING”;A$ 

120 DOPEN#2, “KEY-FILE”:IF DS< >0THEN 
PRINT DS$:STOP 
130 SYS 32512,2, A$, A 

140 IF A = 0 THEN DCLOSE#2: STOP: REM NO 
MATCH 

150 REM RETRIEVE THE ASSOCIATED RELATIVE 
RECORD 

160 REM AT THIS STAGE, IF THE REL/REC IS NOT 
CORRECT 

170 REM YOU COULD ‘GOTO 130’ TO LOOK FOR 
ANOTHER MATCH 

Any string and numeric variable may be used, but should 
be declared before the SYS 32512 to the routine. (In the 
above example ‘A$’ would have been initialized by the 
INPUT statement.) The ‘2’ used after the first comma in 
the SYS command is the logical file number used in the 
DOPEN statement. It is important to check the DISK 
STATUS word (DS) after opening the file. 

Adding records to the key-file could be a problem once 
the file gets large. Make use of the APPEND# command 
in BASIC 4.0 to simply append new record-keys to the 
file. 

Another suggestion is to have separate key-files. For 
alphabetic keys there would be 26 titled ‘A’ to ‘Z’; for 
numeric keys, 10 labelled ‘0’ to ‘9’; or combine for alpha¬ 
numeric and have 36 separate key files. Now you could 
simply check the first character of the search string (i.e., 
LEFT$(A$,1)) and open that particular file. This would 
reduce your key-file size to approximately 100 records per 
file in a 2000 record system, thereby making your search 
times even faster! 
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30 

40 

50 

60 

70 

80 

90 

100 

110 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 


REM ******************************************************************************** 
REM * 

REM * BASIC LOADER FOR MACHINE CODE ISAM ROUTINE * 

REM * GLEN PEARCE 20/8/81 * 

REM * 

REM ******************************************************************************** 
REM 

POKE53,127:CLR: REM LOWER MEMTOP TO PROTECT PROGRAM 
FOR I = 32512 TO 32767:READ J:POKE I, J:NEXT:END 


DATA 

32, 

73, 

127, 

32, 

DATA 

76, 

0 , 

191, 

165, 

DATA 

166, 

210, 

32, 

198, 

DATA 

166, 

150, 

208, 

66, 

DATA 

208, 

18, 

200, 

196, 

DATA 

166, 

150, 

208, 

46, 

DATA 

32, 

228, 

255, 

166, 

DATA 

210, 

208, 

243, 

32, 

DATA 

0 , 

96, 

32, 

73, 

DATA 

177, 

68, 

133, 

L 

DATA 

32, 

73, 

127, 

169, 

DATA 

7, 

162, 

144, 

32, 

DATA 

145, 

68, 

200, 

165, 

DATA 

165, 

96, 

145, 

68, 

DATA 

165, 

98, 

145, 

68, 

DATA 

127, 

169, 

0 , 

133, 

DATA 

201, 

13, 

240, 

23, 

DATA 

32, 

195, 

127, 

201, 

DATA 

175, 

32, 

213, 

127, 

DATA 

122, 

205, 

76, 

116, 

DATA 

240, 

10, 

201, 

48, 

DATA 

41, 

15, 

96, 

133, 

DATA 

72, 

6, 

96, 

38, 

DATA 

101, 

96, 

133, 

96, 

DATA 

96, 

38, 

95, 

165, 

DATA 

0 , 

101, 

95, 

133, 


45, 

201, 

165, 

18, 

240, 

3 

17, 

133, 

210, 

32, 

82, 

127 

255, 

160, 

0 , 

32, 

228, 

255 

201, 

13, 

240, 

243, 

209, 

1 

0 , 

144, 

236, 

32, 

228, 

255 

201, 

35, 

240, 

90, 

208, 

243 

150, 

208, 

33, 

201, 

13, 

240 

245, 

190, 

32, 

152, 

189, 

160 

127, 

177, 

68, 

133, 

0 , 

200 

200, 

177, 

68, 

133, 

2, 

96 

0 , 

133, 

95, 

133, 

96 

133 

122, 

205, 

160, 

0 , 

165, 

94 

95, 

41, 

127, 

145, 

68, 

200 

200, 

165, 

97, 

145, 

68, 

200 

32, 

204, 

255, 

96, 

32, 

73 

95, 

133, 

7, 

32, 

195, 

127 

166, 

150, 

208, 

188, 

133, 

96 

13, 

240, 

10, 

166, 

150, 

208 

76, 

170, 

127, 

162, 

144, 

32 

127, 

32, 

228, 

255 

201, 

13 

144, 

245, 

201, 

58, 

176, 

241 

0 , 

165, 

95, 

72, 

165, 

96 

95, 

6, 

96, 

38, 

95, 

104 

104, 

101, 

95, 

133, 

95, 

6 

0 , 

101, 

96, 

133, 

96, 

169 

95, 

96 






LINE# LOC CODE LINE 


0001 

0000 

0002 

0000 

0003 

0000 

0004 

0000 

0005 

0000 

0006 

0000 

0007 

0000 

0008 

0000 

0009 

0000 

0010 

0000 

0011 

0000 

0012 

0000 

0013 

0000 

0014 

0000 

0015 

0000 

0016 

0000 

0017 

0000 

0018 

0000 


************************************************ 

SEARCH THRU A SEQ FILE FOR A KEY RECORD AND * 
THEN RETRIEVE AN ATTACHED REL/REC NUMBER. * 


GLEN PEARCE 


22 / 08/81 * 

COMMODORE, JOHANNESBURG, SOUTH AFRICA * 

*********************************************** 


• ## CONSTANTS FROM PET 
GETCHR = $FFE4 
CLRCHN = $FFCC 
COIN = $FFC6 
CHKCOM = $BEF5 
FRMEVL = $BD98 
FACINT = $C92D 
SNERR = $BF00 


BASIC (BASIC 4.0) ## 
GET A CHARACTER 
CLOSE I/O CHANNELS 
SET INPUT DEVICE 
CHK FOR COMMA 
EVALUATE EXPRESSION 
CONVERT FL/P TO INT 
PRINT SYNTAX ERROR 


\ ## PAGE ZERO VARIABLES ## 
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0019 

0000 



LENGTH 

= $00 

TEMP STORE OF STR LENGTH 

0020 

0000 



W0RK1 

= $01 

TEMP WORK AREA 

0021 

0000 



CHKINT 

= $11 

CHECK FOR INTEGER 

0022 

0000 



CURFIL 

= $D2 

CURRENT FILE NUMBER 

0023 

0000 



VARPNT 

= $44 

PNTR TO CURRENT VARIABLE 

0024 

0000 



FAC 

= $5E 

MAIN FLT/PNT ACCUMULATOR 

0025 

0000 



J 



0026 

0000 




* = $7F00 


0027 

7F00 



J 



0028 

7F00 

20 

49 7F 

FIND 

JSR EVALEX 

CHK SYNTAX OF COMMAND 

0029 

7F03 

20 

2D C9 


JSR FACINT 

IN BASIC LINE & EXTRACT LFN 

0030 

7F06 

A5 

12 


LDA CHKINT+1 

AND SEARCH STRING 

0031 

7F08 

F0 

03 


BEQ ISINTG 


0032 

7F0A 

4C 

00 BF 


JMP SNERR 

;EXIT IF SYNTAX ERROR 

0033 

7F0D 

A5 

11 

ISINTG 

LDA CHKINT 


0034 

7F0F 

85 

D2 


STA CURFIL 

;SET UP LFN FOR READ 

0035 

7F11 

20 

52 7F 


JSR FNDEXP 

;FIND SRCH STRING 

0036 

7F14 

A6 

D2 


LDX CURFIL 


0037 

7F16 

20 

C6 FF 


JSR COIN 

;SET I/O FOR READ 

0038 

7F19 



J 



0039 

7F19 

AO 

00 

GET 10 

LDY #0 


0040 

7F1B 

20 

E4 FF 

GET 11 

JSR GETCHR 

;GET CHAR FROM FILE 

0041 

7F1E 

A6 

96 


LDX $96 

;CHK STATUS BYTE FOR EOF 

0042 

7F20 

DO 

42 


BNE D0NE1 


0043 

7F22 

C9 

OD 


CMP #13 

;CHK FOR C/RET 

0044 

7F24 

FO 

F3 


BEQ GET10 

;MOVE TO NEXT RECORD 

0045 

7F26 

D1 

01 


CMP (WORKI)Y 

;COMPARE TO EQUIVALENT 

0046 

7F28 

DO 

12 


BNE CLRSTR 

;CHAR OF SEARCH STRING 

0047 

7F2A 

C8 



INY 


0048 

7F2B 

C4 

00 


CPY LENGTH 

*, IF NUMBR OF CHARS CHK'D 

0049 

7F2D 

90 

EC 


BCC GET11 

;EQUALS LEN OF SEARCH STRING 

0050 

7F2F 

20 

E4 FF 

FNDDEL 

JSR GETCHR 

;THEN MATCH IS MADE 

0051 

7F32 

A6 

96 


LDX $96 


0052 

7F34 

DO 

2E 


BNE D0NE1 


0053 

7F36 

C9 

23 


CMP #'# 

;FIND DELIMITER & THEN GO 

0054 

7F33 

FO 

5A 


BEQ RELNUM 

;and read in rel/no. 

0055 

7F3A 

DO 

F3 


BNE FNDDEL 


0056 

7F3C 

20 

E4 FF 

CLRSTR 

JSR GETCHR 

;DISCARD REST OF STRING 

0057 

7F3F 

A6 

96 


LDX $96 


0058 

7F41 

DO 

21 


BNE DONE1 


0059 

7F43 

C9 

OD 


CMP #13 


0060 

7F45 

FO 

D2 


BEQ GET10 

;G0 AND CHK NEXT STRING 

0061 

7F47 

DO 

F3 


BNE CLRSTR 


0062 

7F49 



9 



0063 

7F49 

20 

F5 BE 

EVALEX 

JSR CHKCOM 

;CHK FOR COMMA 

0064 

7F4C 

20 

98 BD 


JSR FRMEVL 

;& EVALUATE EXPRESSION 

0065 

7F4F 

AO 

00 


LDY #0 


0066 

7F51 

60 



RTS 


0067 

7F52 



J 



0068 

7F52 

20 

49 7F 

FNDEXP 

JSR EVALEX 

JFIND SRCH STRING 

0069 

7F55 

B1 

44 


LDA (VARPNT)Y 

;SET UP STRING PNTRS 

0070 

7F57 

85 

00 


STA LENGTH 

JIN TEMP WORK AREAS 

0071 

7F59 

C8 



INY 


0072 

7F5A 

B1 

44 


LDA (VARPNT)Y 


0073 

7F5C 

85 

01 


STA W0RK1 


0074 

7F5E 

C8 



INY 


0075 

7F5F 

B1 

44 


LDA (VARPNT)Y 
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0076 

7F61 

85 

02 

0077 

7F63 

60 


0078 

7F64 



0079 

7F64 

20 

49 7F 

0080 

7F67 

A9 

00 

0081 

7F69 

85 

5F 

0082 

7F6B 

85 

60 

0083 

7F6D 

85 

07 

0084 

7F6F 

A2 

90 

0085 

7F71 

20 

7A CD 

0086 

7F74 

AO 

00 

0087 

7F76 

A5 

5E 

0088 

7F78 

91 

44 

0089 

7F7A 

C8 


0090 

7F7B 

A5 

5F 

0091 

7F7D 

29 

7F 

0092 

7F7F 

91 

44 

0093 

7F81 

C8 


0094 

7F82 

A5 

60 

0095 

7F84 

91 

44 

0096 

7F86 

C8 


0097 

7F87 

A5 

61 

0098 

7F89 

91 

44 

0099 

7F8B 

C8 


0100 

7F8C 

A5 

62 

0101 

7F8E 

91 

44 

0102 

7F90 

20 

CC FF 

0103 

7F93 

60 


0104 

7F94 



0105 

7F94 

20 

49 7F 

0106 

7F97 

A9 

00 

0107 

7F99 

85 

5F 

0108 

7F9B 

85 

07 

0109 

7F9D 

20 

C3 7F 

0110 

7FA0 

C9 

OD 

0111 

7FA2 

FO 

17 

0112 

7FA4 

A6 

96 

0113 

7FA6 

DO 

BC 

0114 

7FA8 

85 

60 

0115 

7FAA 

20 

C3 7F 

0116 

7 FAD 

C9 

OD 

0117 

7FAF 

FO 

OA 

0118 

7FB1 

A6 

96 

0119 

7FB3 

DO 

AF 

0120 

7FB5 

20 

D5 7F 

0121 

7FB8 

4C 

AA 7F 

0122 

7FBB 

A2 

90 

0123 

7FBD 

20 

7A CD 

0124 

7FC0 

4C 

74 7F 

0125 

7FC3 



0126 

7FC3 

20 

E4 FF 

0127 

7FC6 

C9 

OD 

0128 

7FC8 

FO 

OA 

0129 

7FCA 

C9 

30 

0130 

7FCC 

90 

F5 

0131 

7FCE 

C9 

3A 

0132 

7FDO 

BO 

FI 

0133 

7FD2 

29 

OF 


STA W0RK1+1 
RTS 

DONE1 JSR EVALEX 
LDA #0 
STA $5F 
STA $60 
STA $07 
LDX #$90 
JSR $CD7A 
D0NE2 LDY #0 
LDA FAC 
STA (VARPNT)Y 
INY 

LDA FAC+1 
AND #$7F 
STA (VARPNT)Y 
INY 

LDA FAC+2 
STA (VARPNT)Y 
INY 

LDA FAC+3 
STA (VARPNT)Y 
INY 

LDA FAC+4 
STA (VARPNT)Y 
JSR CLRCHN 
RTS 


RELNUM JSR EVALEX 
LDA #0 
STA $5F 
STA $07 
JSR NEWDIG 


CMP #13 
BEQ PUTVAR 
LDX $96 
BNE D0NE1 
STA $60 


NXTDIG JSR NEWDIG 
CMP #13 
BEQ PUTVAR 
LDX $96 
BNE D0NE1 
JSR ASCHEX 
JMP NXTDIG 


PUTVAR LDX #$90 
JSR $CD7A 
JMP D0NE2 


NEWDIG JSR GETCHR 
CMP #13 
BEQ ENDDIG 
CMP #$30 
BCC NEWDIG 
CMP #$3A 
BCS NEWDIG 
AND #$0F 


;IF NO MATCH FOUND THEN 
;RETURN A REL/NO. OF ZERO 


;SET VARIABLE TYPE TO NUMERIC 

;CONVERT HEX TO FL/P 

;TRANSFER BCD VALUE OF 
;REL/NO. TO NUMERIC VAR 
;SPECIFIED IN SYS CMD 

;STRIP OFF SIGN 


;CLEAR ALL I/O CHANS AND 
;EXIT PROGRAM 

;FIND VARIABLE FOR REL/NO. 


•READ IN REL/NO. AND CONVERT 
|IT TO A 2-BYTE HEX DIGIT 


;GET NEXT REL/NO. DIGIT 


;CHK FOR NUMERIC 


;MASK OUT THE FOUR MSB'S 
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0134 

7FD4 

60 


ENDDIG 

RTS 


0135 

7FD5 



! 



0136 

7FD5 

85 

00 

ASCHEX 

STA 

LENGTH 

0137 

7FD7 

A5 

5F 


LDA 

$5F 

0138 

7FD9 

48 



PHA 


0139 

7 FDA 

A5 

60 


LDA 

$60 

0140 

7FDC 

48 



PHA 


0141 

7FDD 

06 

60 


ASL 

$60 

0142 

7FDF 

26 

5F 


R0L 

$5F 

0143 

7FE1 

06 

60 


ASL 

$60 

0144 

7FE3 

26 

5F 


R0L 

$5F 

0145 

7FE5 

68 



PLA 


0146 

7FE6 

65 

60 


ADC 

$60 

0147 

7FE8 

85 

60 


STA 

$60 

0148 

7FEA 

68 



PLA 


0149 

7FEB 

65 

5F 


ADC 

$5F 

0150 

7FED 

85 

5F 


STA 

$5F 

0151 

7FEF 

06 

60 


ASL 

$60 

0152 

7FF1 

26 

5F 


R0L 

$5F 

0153 

7FF3 

A5 

00 


LDA 

LENGTH 

0154 

7FF5 

65 

60 


ADC 

$60 

0155 

7FF7 

85 

60 


STA 

$60 

0156 

7FF9 

A9 

00 


LDA 

#0 

0157 

7FFB 

65 

5F 


ADC 

$5F 

0158 

7FFD 

85 

5F 


STA 

$5F 

0159 

7FFF 

60 


RETN 

RTS 


0160 

8000 




.END 

ERRORS = 0000 






; HANDLE ASC - HEX CONVERSION 


Every 
PET needs 
a 


Introducing a new series of programs that are 'FRIENDLY' to the user and 
represent outstanding value for money. ... 

and there will be more 'FRIENDS' coming 


FRIEND I - Word Processor 



An on-line ROM chip for 8, 16, and 32K machines. This Word Processor program has 
been written by professionals specially for The Microcomputer House. 

The program can be used with or without a printer and will be available shortly in 
disk and tape versions as well. 

WP CHIP $85 

DISK $70 

TAPE $60 


FRIEND 2 - Mailing List 


This is a dual disk based system for the 4000 series microcomputers. It caters for 
2,100 records per data disk and offers sort and select facilities. It will also be available 
shortly for single disk systems. 

MAILING LIST $85 

FRIEND 3 -Data Handler 

This is a ROM chip containing a machine language routine which allows the program¬ 
mer to control screen input. • Alpha Field Entry#Numeric Field Entry#Date Entry 
• Disk Fastget • Field Reverse# Field Flash. Each of these functions have different 
options. FRIEND 3 is a derivative of our security ROM used by all our packages. 

4000 series and 8000 series $85 each. 

All programs come with a complete instruction manual. 

DEMONSTRATION STOCK AVAILABLE AT NEVER TO BE REPEATED PRICES 
JUST PHONE OR CALL IN 


The microcomputer 
tflh House Pty. Ltd. 
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The VIC 20 Electronic 
Christmas Card 


If you plan to give someone a VIC 20 this Christmas, 
this is a terrific little program you can include along with 
it. It plays "We Wish You a Merry Christmas" and displays 
the words to the song, while the screen changes into various 
red-green combinations. 

Courtesy of Dr. Bruce Downing. 



10 32=36076 
20 V=36078 
30 PRINT" 

32 POKE 36079,90 

34 PRINT "WWWERRV CHRISTMBS" 

100 POKE V, 10 
GOTO 183 

102 FOR 1=1 TO 8 
110 REPB P 

130 IF P=-l THEN 200 
140 REPB B 
150 POKE S2,P 
160 FOR N=1 TO B : NEXT N 
170 POKE S2,0 

180 FOR N=1 TO 20:NEXT N 

181 NEXT I 

182 RETURN 

183 GOSUB 102 

184 GOSUB 240 
190 GOSUB 102 
192 GOSUB 268 
194 GOSUB 102 
196 GOSUB 268 
198 GOSUB 102 

POKE 32,0 

220 FOP 1=1 TO 1000:NEXT I 

221 RESTORE 

222 GOTO 10 
240 PRINT 

POKE 36879,45 
250 PRINT "*MinERE>' CHRISTMPS” 

252 RETURN 

POKE 36879,90 
262 PRINT 

264 PRINT "WMSERRV CHRI$TMR$" 

266 RETURN 

268 PQKF 36879,42 

270 PRINT ’' ’ 

272 PR TNT " IMMRNB HfiPPV NEW VEPR" 
274 RETURN 


320 

DPTP 

228, 

250, 

235 

330 

DPTP 

250, 

235, 

125 

340 

DPTP 

237, 

125, 

235 

350 

DPTP 

125, 

234, 

125 

360 

DPTp 

231, 

250, 

231 

370 

DPTP 

250, 

231, 

250 

330 

DPTP 

237, 

250, 

237 

390 

DPTP 

125, 

239, 

125 

400 

DPTP 

237, 

125, 

235 

405 

TiRTP 

125, 

234, 

250 

410 

DPTP 

229, 

250, 

223 

415 

DPTP 

250, 

239, 

250 

420 

DPTP 

239, 

125, 

240 

425 

DPTP 

125, 

239, 

125 

430 

DPTP 

007 

o'or , 

125, 

235 

435 

DPTP 

250, 

23.1, 

250 

440 

DPTP 

231, 

.125, 

231 

445 

DPTP 

125, 

228, 

250 

450 

nflTP 

235, 

.250, 

234 

455 

DPTP 

250, 

.235, 

250 

460 

DPTP 

-1 




S'EflDV. 
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THE COMMODORE 64: 

A PRELIMINARY REVIEW 


In a world where new microcomputers seem to be appearing faster 
than federal budgets, it’s hard to decide when to buy. That fear of 
obsolesence is very real when YOUR money is on the line. But all 
computers will eventually become obsolete, so waiting for a better 
one is perpetual. Therefore, you must determine which computerwill 
do everything you desire at a price that suits your budget. That’s a 
pretty tall order, because you might find one that does everything, 
but a second mortgage on your house was not in your plans. 
Alternately, that inexpensive machine you’ve had your eye on might 
only give you room for a simple mortgage program and you find 
yourself faced with expanding not only the computer but our 
investment too. Finding a compromise can be tough. 


If you’ve decided that you’re definitely 
in the market for a micro, check out 
the Commodore 64; Commodore’s 
newest entry and, without a doubt 
their best so far. Although it looks like 
a VIC from the outside, inside its a 
whole new story. 

The 64 already has 64K of RAM 
(hence the name), so “memory 
expansion” can be scratched off your 
shopping list Of course, not all 64K is 
available simultaneously. Memory is 
split into sections which must be 
switched in or out as required. More 
on 64 bank-switching in a later issue. 

Like the VIC, it comes in that 
“wedge” shaped plastic housing, but 
in a colour that looks like a cross 
between beige and grey. Unlike the 
VIC, it has a 40 column by 25 line 
screen input and the modulator is 
contained inside the housing where it 
belongs. The keyboard feels a little 
nicer too, but that’s only a personal 
opinion, possibly influenced by the 
order in which they came out. 

STANDARD DESIGN 
FEATURES 

★ Cartridge slot for games, etc. 

★ 8 bit user port 

★ Serial bus for disk, printer, etc, (like 
on the VIC). 

★ Cassette tape port 

★ Composite video output and 
modulator output porta 

★ Audio output jack 

★ 38K available for BASIC text 

★ 2 built-in Analog to Digital converters 

★ 16 colours 

And there’s more... 


Several new chips have been used 
in the 64’s design. A new micropro¬ 
cessor, the MOS 6510, makes its 
debut. The 6510 is still an 8 bit 
machine, but internal bank switching 
capabilities allow for the bonus RAM. 
Other features include; programmable 
stack pointer, variable length stack, an 
8 bit bi-directional I/O port and its 
software compatible with 6502 pro¬ 
grams 

THE 6566 VIDEO 
DISPLAY CHIP 

This one’s a beauty! Everything you 
ever wanted to do in movable 
graphics., and then some. The 6566 
has the capability if moving definable 
shapes, or more commonly known as 
“sprites”. Up until now, sprites have 
only been available on machines like 
arcade games Pacmans galaxians 
frogs ©tc, are all done using sprites 

The 64 allows 8 sprites to be 
displayed simultaneously (with more 
by using ’’raster compare” which we’ll 
explain in a later issue). You simply 
define a shape somewhere in 
memory, select a sprite number, point 
a sprite at the shape, and turn it on. 
Like magic that shape will appear 
instantly on the screen. Then by 
merely giving X and Y coordinates the 
shape moves around the screen by 
itself! No more erasing the shape at its 
previous location, no more updating 
screen RAM and colour tables... 
everything’s done in hardware! 

Other sprite features include: 
horizontal and/or vertical size expansion; 
hi-res or multi colour sprites; collision 



detection between sprites or sprites 
and background; sprite/background 
display priority (sprites can appear in 
front of background or disappear 
behind background). 

Other 6566 features include: 
smooth scrolling horizontally and 
vertically; 16 colours with 3 grey 
shades; a bit map mode for hi- 
resolution display; I/O ports for 2 
joysticks or 4 paddles or light pen 
input. 

THE 6581 SOUND 
INTERFACE DEVICE (SID) 

The SID is virtually a synthesizer on 
a chip. It has 3 independenty 
controllable voices each with a 9 
octave range and 4 waveforms 
including square, triangle, sawtooth 
and noise. Each voice also has a 
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programmable envelope generator 
and volume control with a master 
volume control for all three voices. The 
SID has some other very sophisticated 
features such as oscillator synchron¬ 
ization, ring modulation, filter resonance 
control, and it even has an external 
input for processing signals from 
other sources such as an electric 
guitar. 

In all, the 6581 can produce sound 
with better quality than some of the 
instruments it can simulate. With a 
little programming, voice synthesis 
shouldn’t be too much trouble either. 

THE 6526 COMPLEX 
INTERFACE ADAPTER 
(CIA) 

The C64 comes with 2 of these. The 
6526’s replace the 6520 and 6522 of 
earlier machines. Each chip has an 8 
bit shift register for serial 1/0,24 clock 
with programmable alarm, 8 or 16 bit 
handshaking on read or write, 2 
independent 16 bit interval timersand 
the capability for sourcing or sinking 2 
standard TTL loads. I’ve been told that 
the external input to the SID can only 
process signals through the filter 
section which eliminates several 
possibilities. However, the 6526 has 
two analog to digital converters By 
connecting external sources here, 
audio signals can be sent through all 
sections of the SID which will provide 
for some rather interesting experi¬ 
mentation. The A/D’s will also 
eliminate a lot of the analog 
interfacing problems that have plagued 
us in the past 

ACCESSORIES 

Commodore intends to use many of 
the same accessories for the 64 as 
are available now for the VIC. VIC 
Joysticks paddles diskdrive, printer, 
modem, RS-232 cartridge and C2N 
cassette are all compatible with the 
64. About the only difference is the 
slot for things like games and utility 
cartridges It’s been changed to a 
vertical pin type connector as 
opposed to the card edge type 
connector on the VIC 20. This is not 
only less space consuming, but 
promises to be a little more rugged as 
the contacts appear to be less 
susceptible to friction wear. 

Future accessories according to 
Commodore, include a Z-80 plug-in 


card, soft-load modules for BASIC 4.0, 
Pascal, Forth, and Pilot, extended 
BASIC cartridges for graphic and 
sound support, and monitor type 
cartridges for machine language 
exercises 

SOME COMMENTS 

This time Commodore’s done it 
right! They placed screen RAM 
immediately following zero page, the 
stack and RAM allocated for the 
cassette buffer. This leaves a 38K 
stretch of uninterrupted memory 
which has been set up for BASIC text 
Unlike the VIC, the screen won’t be 
moving around you, but like the VIC, 
the LOAD command will adjust for the 
new start of text address $0800. 

The character generator is set up 
like in PET/CBMs It takes no address 
space away from the processor 
unless you want to modify it Using a 
very simple program, it can be 
transferred to RAM (where it will 
require address space) and a character 
pointer invokes the new location. 

The 64 has 16 colours 8 more than 
the VIC. Commodore had some 
trouble with colour quality on TV and 
monitor output but this has been 
cleared up in the release versions. It 
has three distinct grey shades that 
come up beautifully even through 
modulated output to a TV. They also 
have an element of brilliance about 
them that make them appear more 
like colours as opposed to just 
shades 

The Control key is always a nice 
feature on any machine. The VIC 
Control key apparently had some 
problems when used in a communi¬ 
cations environment, but this is all 
cleared up for the 64. RUN/STOP- 
RESTORE will still get you out of just 
about any crash, and changing from 
Upper/Lower case to Graphics mode 
is a snap with the shifted Commodore 
key at the lower left corner of the 
keyboard. 8 Function keys are 
included (4 plus 4 shifted) and I’ve 
been informed that a new method of 
keyboard scanning will allow the 
Control and Commodore keys to also 
be used as shift keys. Combinations of 
CTRL, Shift, and the Commodore key 
might result in as many as32 effective 
function keys! 

Commodore opted to stay with the 
serial bus for interfacing peripherals. 
Unlike IEEE parallel, bits are delivered 


in serial which reduces communications 
speed considerably. This reduction 
isn’t really noticeable with the printer, 
but disk access is somewhat hampered. 
Fortunately there will be an IEEE 
interface card available for those that 
already own IEEE peripherals 

For some reason they decided to 
install BASIC 2.0 in the 64 which 
doesn’t have all those nice disk 
commands like Catalog, Rename, 
Copy, etc. That’s not too hard to live 
with, but the problem with BASIC 2, as 
you’ll recall, is the nasty realm of 
“garbage collection”. Recapping, gar¬ 
bage collection occurs when there 
isn’t enough unused memory to 
acommodate a new string generated 
by BASIC. At this point the operating 
system decides it must perform a 
garbage collection. The system re¬ 
packs all good strings at the top of 
memory, effectively throwing away 
any old ones that are no longer 
needed. During this process, the 
machine will appearto“hang-up”. The 
delay will vary depending on several 
conditions present at the time, but on 
32K BASIC 2 PET/CBMs, there were 
reports of garbage collections taking 
anywhere from 20 seconds to 20 
minutes. As mentioned earlier, 
Commodore intends to make BASIC 
4.0 available on a plug-in cartridge, 
but this will probably contain the disk 
commnds only. Fortunately there are 
a number of ways to avoid this 
problem which we’ll cover in a future 
article, but BASIC 4.0 would have 
been much better suited for the 64. 

IN SUMMARY 

The Commodore 64 is superior in 
every aspect over the VIC. The VIC still 
has its applications though, so don’t 
deem it out for the count yet But even 
at double the price of the VIC 20, the 
64 seems to be the logical choice. 
Programmers will find the 64 a 
pleasure to work with. Games? A cinch 
on this machine... and you can bet 
they’ll be absolutely dazzling with the 
added graphics and sound features. 

Support for the 64 will probably 
reach unprecedented levels. Besides 
being capable of nearly every PET 
feature seen to date, the added 
features of this machine will have 
programmers/writers just crankin’ out 
material. You can count on at least 
one 64 related article in every 
magazine with CBM content 
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Commodore-64 Architecture Map 

-(65535)- 


SFFFF 


CHARACTER SET 
(bit 2 of S0001) 

0 = CHAR ROM 
1 = I/O ROM/RAM 


$E000 

SDCOO 

$D800 

SD000 


$C000 


SA000 


$8000 

(32768) 


$4000 

(16384) 


VIC II Chip sees 
this 16K block 
on power-up 


$2000 

(8192) 


$0800 

$0400 

$0000 


KERNAL ROM 


- (57344)- 


CIA 1. CIA 2 (S. Bus, P.U.P) 

-- (55320)-— 


Colour Ram Nibbles 
-- (55296) -- 


VIC II. SID 

— (53248) — 


4K RAM 


- (49152) - 


BASIC 

INTERPRETER 

ROM 


- (40960) - 


BASIC 
User RAM 
(38912 Bytes) 


— (2048) — 
Screen (IK) 

— (1024) — 


Workspace (IK) 
Processor Reg ($0/1) 



8K HI RAM 

(bit 1 of $0001) 

0 = RAM 

1 = KERNAL ROM 


4K RAM 

maps to $D000 when 
bits 0 & 1 of $0001 = 0 



8K LO RAM 

(bit Oof $0001) 

0 = RAM 

1 = BASIC ROM 


EX ROM 

8K ROM Cartridge 
maps here 



HI-RES Colour Table 
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Commodore 64 Memory Map Compiled by 

Jim Butterfield 

0000 

0 

Chip directional register 

0001 

1 

Chip I/O; memory & tape control 

0003 -0004 

3-4 

Float-Fixed vector 

0005 -0006 

5-6 

Fixed-Float vector 

0007 

7 

Search character 

0008 

8 

Scan-quotes flag 

0009 

9 

TAB column save 

000A 

10 

0 = LOAD, 1= VERIFY 

000B 

11 

Input buffer pointer/* subscrpt 

oooc 

12 

Default DIM flag 

000D 

13 

Type: FF = string, 00 = numeric 

000E 

14 

Type: 80 = integer, 00 = floating point 

000F 

15 

DATA scan/LIST quote/memry flag 

0010 

16 

Subscript/FNx flag 

0011 

17 

0 = IN PUT; $40 = GET;$98 = READ 

0012 

18 

ATN sign/Comparison eval flag 

0013 

19 

Current I/O prompt flag 

0014 -0015 

20-21 

Integer value 

0016 

22 

Pointer: temporary string stack 

0017 -0018 

23-24 

Last temp string vector 

0019 -0021 

25-33 

Stack for temporary strings 

0022 -0025 

34-37 

Utility pointer area 

0026 -002A 

38-42 

Product area for multiplication 

002B -002C 

43-44 

Pointer: Start-of-Basic 

002D -002E 

45-46 

Pointer: Start-of-Variables 

002F -0030 

47-48 

Pointer: Start-of-Arrays 

0031 -0032 

49-50 

Pointer: End-of-Arrays 

0033 -0034 

51-52 

Pointer: String-storage(moving down) 

0035 -0036 

53-54 

Utility string pointer 

0037 -0038 

55-56 

Pointer: Limit-of-memory 

0039 -003A 

57-58 

Curr' r>t hwc line number 

003B -003C 

59-60 

Previous Basic line number 

003D -003E 

61-62 

Pointer: Basic statement for CONT 

003F -0040 

63-64 

Current DATA line number 

0041 -0042 

65-66 

Current DATA address 

0043 -0044 

67-68 

Input vector 

0045 -0046 

69-70 

Current variable name 

0047 -0048 

71-72 

Current variable address 

0049 -004A 

73-74 

Variable pointer for FOR/NEXT 

004 B -004C 

75-76 

Y-save; op-save; Basic pointer save 

004 D 

77 

Comparison symbol accumulator 

004 E -0053 

78-83 

Misc work area, pointers, etc 

0054 -0056 

84-86 

Jump vector for functions 

0057 -0060 

87-96 

Misc numeric work area 

0061 

97 

Accum*l: Exponent 

0062 -0065 

98-101 

Accum*l: Mantissa 

0066 

102 

Accum*l: Sign 

0067 

103 

Series evaluation constant pointer 

0068 

104 

Accum*l hi-order (overflow) 

0069 -006E 

105-110 

Accum*2: Exponent, etc. 

006F 

111 

Sign comparison, Acc*l vs *2 
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0070 

112 

0071 -0072 

113-114 

0073 -008A 

115-138 

007A -007B 

122-123 

008B -008F 

139-143 

0090 

144 

0091 

145 

0092 

146 

0093 

147 

0094 

148 

0095 

149 

0096 

150 

0097 

151 

0098 

152 

0099 

153 

009A 

154 

009B 

155 

009C 

156 

009D 

157 

009E 

158 

009F 

159 

00A0 -00A2 

160-162 

00A3 

163 

00A4 

164 

00A5 

165 

00A6 

166 

00A7 

167 

00A8 

168 

00A9 

169 

00AA 

170 

00 A B 

171 

00AC -00AD 

172-173 

00AE -00AF 

174-175 

OOBO -00B1 

176-177 

00B2 -00B3 

178-179 

00B4 

180 

00B5 

181 

00B6 

182 

00B7 

183 

00B8 

184 

00B9 

185 

00BA 

186 

00BB -00BC 

187-188 

OOBD 

189 

OOBE 

190 

OOBF 

191 

OOCO 

192 

00C1 -00C2 

193-194 

00C3 -00C4 

195-196 

00C5 

197 

00C6 

198 

00C7 

199 

00C8 

200 

00C9 -00CA 

201-202 

OOCB 

203 


Accum*l lo-order (rounding) 
Cassette buff len/Series pointer 
CHRGET subroutine; get Basic char 
Basic pointer (within subrtn) 

RND seed value 
Status word ST 

Keyswitch PIA: STOP and RVS flags 

Timing constant for tape 

Load = 0, Verify = 1 

Serial output: deferred char flag 

Serial deferred character 

Tape EOT received 

Register save 

How many open files 

Input device, normally 0 

Output CMD device, normally 3 

Tape character parity 

Byte-received flag 

Direct = $80/RUN = 0 output control 

Tp Pass 1 error log/char buffer 

Tp Pass 2 err log corrected 

Jiffy Clock HML 

Serial bit count/EOI flag 

Cycle count 

Countdown,tape write/bit count 
Tape buffer pointer 
Tp Wrt ldr count/Rd pass/inbit 
Tp Wrt new byte/Rd error/inbit cnt 
Wrt start bit/Rd bit err/stbit 
Tp Scan;Cnt;Ld;End/byte assy 
Wr lead length/Rd checksum/parity 
Pointer: tape bufr, scrolling 
Tape end adds/End of program 
Tape timing constants 
Pntr: start of tape buffer 
1 =Tp timer enabled; bit count 
Tp EOT/RS232 next bit to send 
Read character error/outbyte buf 

* characters in file name 
Current logical file 
Current secndy address 
Current device 
Pointer to file name 

Wr shift word/Rd input char 

* blocks remaining to Wr/Rd 
Serial word buffer 

Tape motor interlock 
I/O start address 
Kernel setup pointer 
Last key pressed 

* chars in keybd buffer 
Screen reverse flag 
End-of-line for input pointer 
Input cursor log (row, column) 
Which key: 64 if no key 
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oocc 

204 

00CD 

205 

00CE 

206 

00CF 

207 

00D0 

208 

00D1 -00D2 

209-210 

00D3 

211 

00D4 

212 

00D5 

213 

00D6 

214 

00D7 

215 

00D8 

216 

00D9 -00F2 

217-242 

00F3 -00F4 

243-244 

00F5 -00F6 

245-246 

00F7 -00F8 

247-248 

00F9 -00FA 

249-250 

00FF -010A 

256-266 

0100 -013E 

256-318 

0100 -01FF 

256-511 

0200 -0258 

512-600 

0259 -0262 

601-610 

0263 -026C 

611-620 

026D -0276 

621-630 

0277 -0280 

631-640 

0281 -0282 

641-642 

0283 -0284 

643-644 

0285 

645 

0286 

646 

0287 

647 

0288 

648 

0289 

649 

028A 

650 

028B 

651 

028C 

652 

028D 

653 

028E 

654 

028F -0290 

655-656 

0291 

657 

0292 

658 

0293 

659 

0294 

660 

0295 -0296 

661-662 

0297 

663 

0298 

664 

0299 -029A 

665 

029B 

667 

029C 

668 

029D 

669 

029E 

670 

029F -02A0 

671-672 

02 A1 

673 

02A2 

674 

02A3 

675 

02A4 

676 


0 = flash cursor 

Cursor timing countdown 

Character under cursor 

Cursor in blink phase 

Input from screen/from keyboard 

Pointer to screen line 

Position of cursor on above line 

0 = direct cursor, else programmed 

Current screen line length 

Row where curosr lives 

Last inkey/checksum/buffer 

# of INSERTS outstanding 

Screen line link table 

Screen color pointer 

Keyboard pointer 

RS-232 Rev pntr 

RS-232 Tx pntr 

Floating to ASCII work area 

Tape error log 

Processor stack area 

Basic input buffer 

Logical file table 

Device * table 

Sec Adds table 

Keybd buffer 

Start of Basic Memory 

Top of Basic Memory 

Serial bus timeout flag 

Current color code 

Color under cursor 

Screen memory page 

Max size of keybd buffer 

Repeat all keys 

Repeat speed counter 

Repeat delay counter 

Keyboard Siiift/Control flag 

Last shift pattern 

Keyboard table setup pointer 

Keyboard shift mode 

0 = scroll enable 

RS-232 control reg 

RS-232 command reg 

Bit timing 

RS-232 status 

* bits to send 

RS-232 speed/code 

RS232 receive pointer 

RS232 input pointer 

RS232 transmit pointer 

RS232 output pointer 

IRQ save during tape I/O 

CIA 2 (NM1) Interrupt Control 

CIA 1 Timer A control log 

CIA 1 Interrupt Log 

CIA 1 Timer A enabled flag 


Vol.2 Issue 8 Commodore Magazine 43 





02A5 

677 

Screen row marker 


02C0 -02FE 

704-766 

(Sprite 11) 


0300 -0301 

768-769 

Error message link 


0302 -0303 

770-771 

Basic warm start link 


0304 -0305 

772-773 

Crunch Basic tokens link 


0306 -0307 

774-775 

Print tokens link 


0308 -0309 

776-777 

Start new Basic code link 


030A -030B 

778-779 

Get arithmetic element link 


030C 

780 

SYS A-reg save 


030D 

781 

SYS X-reg save 


030E 

782 

SYS Y-reg save 


030F 

783 

SYS status reg save 


0310 -0312 

784-785 

USR function jump 

(B248) 

0314 -0315 

788-789 

Hardware interrupt vector 

(EA31) 

0316 -0317 

790-791 

Break interrupt vector 

(FE66) 

0318 -0319 

792-793 

NMI interrupt vector 

(FE47) 

031A -03IB 

794-795 

OPEN vector 

(F34A) 

031C -03ID 

796-797 

CLOSE vector 

(F291) 

031E -03IF 

798-799 

Set-input vector 

(F20E) 

0320 -0321 

800-801 

Set-output vector 

(F250) 

0322 -0323 

802-803 

Restore I/O vector 

(F333) 

0324 -0325 

804-805 

INPUT vector 

(FI 57) 

0326 -0327 

806-807 

Output vector 

(F1CA) 

0328 -0329 

808-809 

Test-STOP vector 

(F6ED) 

032A -032B 

810-811 

GET vector 

(F13E) 

032C -032D 

812-813 

Abort I/O vector 

(F32F) 

032E -032F 

814-815 

Warm start vector 

(FE66) 

0330 -0331 

816-817 

LOAD link 

(F4A5) 

0332 -0333 

818-819 

SAVE link 

(F5ED) 

033C -03FB 

828-1019 

Cassette buffer 


0340 -037E 

832-894 

(Sprite 13) 


0380 -03BE 

896-958 

(Sprite 14) 


03C0 -03FE 

960-1022 

(Sprite 15) 


0400 -07FF 

1024-2047 

Screen memory 


0800 -9FFF 

2048-40959 

Basic RAM memory 


8000 -9FFF 

32768-40959 

Alternate: ROM plug-in area 


A000 -BFFF 

40960-49151 

ROM: Basic 


A000 -BFFF 

49060-59151 

Alternate: RAM 


C000 -CFFF 

49152-53247 

RAM memory, including alternate 


D000 -D02E 

53248-53294 

Video Chip (6566) 


D400 -D41C 

54272-54300 

Sound Chip (6581 SID) 


D800 -DBFF 

55296-56319 

Color nybble memory 


DCOO -DCOF 

56320-56335 

Interface chip 1, IRQ (6526 CIA) 


DDOO -DDOF 

56576-56591 

Interface chip 2, NMI (6526 CIA) 


DOOO -DFFF 

53248-53294 

Alternate: Character set 


EOOO -FFFF 

57344-65535 

ROM: Operating System 


EOOO -FFFF 

57344-65535 

Alternate: RAM 


FF81 -FFF5 

65409-65525 

Jump Table, Including: 


FFC6 


- Set Input channel 


FFC9 


- Set Output channel 


FFCC 


- Restore default I/O channels 


FFCF 


- INPUT 


FFD2 


- PRINT 


FFE1 


- Test Stop key 


FFE4 


-GET 
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Commodore 64 - ROM Memory Map 

A000; ROM control vectors 
AOOC; Keyword action vectors 
A052; Function vectors 
A080; Operator vectors 
A09E; Keywords 
A19E; Error messages 
A328; Error message vectors 
A365; Misc messages 
A38A; Scan stack for FOR/GOSUB 
A3B8; Move memory 
A3FB; Check stack depth 
A408; Check memory space 
A435; 'out of memory’ 

A437; Error routine 
A469; BREAK entry 
A474; ’ready.’ 

A480; Ready for Basic 
A49C; Handle new line 
A533; Re-chain lines 
A560; Receive input line 
A579; Crunch tokens 
A613; Find Basic line 
A642; Perform [NEW] 

A65E; Perform [CLR] 

A68E; Back up text pointer 
A69C; Perform [LIST] 

A742; Perform [FOR] 

A7ED; Execute statement 
A81D; Perform [RESTORE] 

A82C; Break 
A82F; Perform [STOP] 

A831; Perform [END] 

A857; Perform [CONT] 

A871; Perform [RUN] 

A883; Perform [GOSUB] 

A8A0; Perform [GOTO] 

A8D2; Perform [RETURN] 

A8F8; Perform [DATA] 

A906; Scan for next statement 
A928; Perform [IF] 

A93B; Perform [REM] 

A94B; Perform [ON] 

A96B; Get fixed point number 
A9A5; Perform [LET] 

AA80; Perform [PRINT*] 

AA86; Perform [CMD] 

AAAO; Perform [PRINT] 

ABIE; Print string from (y a) 

AB3B; Print format character 
AB4D; Bad input routine 
AB7B; Perform [GET] 

ABA5; Perform [INPUT*] 

ABBF; Perform [INPUT] 

ABF9; Prompt & input 
AC06; Perform [READ] 

ACFC; Input error messages 


AD IE; 

Perform [NEXT] 

AD78; 

Type match check 

AD9E; 

Evaluate expression 

AEA8; 

Constant - pi 

AEF1; 

Evaluate within brackets 

AEF7; 

T 

AEFF; 

comma.. 

AF08; 

Syntax error 

AF14; 

Check range 

AF28; 

Search for variable 

AFA7; 

Setup FN reference 

AFE6; 

Perform [OR] 

AFE9; 

Perform [AND] 

BO 16; 

Compare 

B081; 

Perform [DIM] 

B08B; 

Locate variable 

B113; 

Check alphabetic 

B11D; 

Create variable 

B194; 

Array pointer subrtine 

B1A5; 

Value 32768 

B1B2; 

Float-fixed 

B1D1; 

Set up array 

B245; 

’bad subscript’ 

B248; 

’illegal quantity’ 

B34C; 

Compute array size 

B37D; 

Perform [FRE] 

B391; 

Fix-float 

B39E; 

Perform [POS] 

B3A6; 

Check direct 

B3B3; 

Perform [DEF] 

B3E1; 

Check fn syntax 

B3F4; 

Perform [FN] 

B465; 

Perform [STR$] 

B475; 

Calculate string vector 

B487; 

Set up string 

B4F4; 

Make room for string 

, 

Garbage collection 

H5BD; 

Check salvageability 

B606; 

Collect string 

B63D; 

Concatenate 

B67A; 

Build string to memory 

B6A3; 

Discard unwanted string 

B6DB; 

Clean descriptor stack 

B6EC; 

Perform [CHR$] 

B700; 

Perform [LEFTS] 

B72C; 

Perform [RIGHTS] 

B737; 

Perform [MID$] 

B761; 

Pull string parameters 

B77C; 

Perform [LEN] 

B782; 

Exit string-mode 

B78B; 

Perform [ASC] 

B79B; 

Input byte paramter 

B7AD; 

Perform [VAL] 

B7EB; 

Parameters for POKE/WA1' 

B7F7; 

Float-fixed 

B80D; 

Perform [PEEK] 

B824; 

Perform [POKE] 

B82D; 

Perform [WAIT] 
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B849; 

Add 0.5 

B850; 

Subtract-from 

B853; 

Perform [subtract] 

B86A; 

Perform [add] 

B947; 

Complement FAC*1 

B97E; 

’overflow’ 

B983; 

Multiply by zero byte 

B9EA; 

Perform [LOG] 

BA2B; 

Perform [multiply] 

BA59; 

Multiply—a—bit 

BA8C; 

Memory to FAC*2 

BAB7; 

Adjust FAC*l/ # 2 

BAD4; 

U nderflow/overflow 

BAE2; 

Multiply by 10 

BAF9; 

+ 10 in floating pt 

BAFE; 

Divide by 10 

BB12; 

Perform [divide] 

BBA2; 

Memory to FAC # 1 

BBC7; 

FAC # 1 to memory 

BBFC; 

FAC # 2 to FAC*1 

BCOC; 

FAC*1 to FAC*2 

BC1B; 

Round FAC # 1 

BC2B; 

Get sign 

BC39; 

Perform [SGN] 

BC58; 

Perform [ABS] 

BC5B; 

Compare FAC*1 to mem 

BC9B; 

Float-fixed 

BCCC; 

Perform [int] 

BCF3; 

String to FAC 

BD7E; 

Get ascii digit 

BDC2; 

Print ‘IN..’ 

BDCD; 

Print line number 

BDDD; 

Float to ascii 

BF16; 

Decimal constants 

BF3A; 

TI constants 

BF71; 

Perform [SQR] 

BF7B; 

Perform [power] 

BFB4; 

Perform [negative] 

BFED; 

Perform [EXP] 

E043; 

Series eval 1 

E059; 

Series eval 2 

E097; 

Perform [RND] 

E0f9; 

?? breakpoints ?? 

E12A; 

Perform [SYS] 

El 56; 

Perform [SAVE] 

El 65; 

Perform [VERIFY] 

El 68; 

Perform [LOAD] 

E1BE; 

Perform [OPEN] 

E1C7; 

Perform [CLOSE] 

E1D4; 

Parameters for LOAD/SAVE 

E206; 

Check default parameters 

E20E; 

Check for comma 

E219; 

Parameters for open/close 

E264; 

Perform [COS] 

E26B; 

Perform [SIN] 

E2B4; 

Perform [TAN] 

E30E; 

Perform [ATN] 

E37B; 

Warm restart 


E394; Initialize 
E3A2; CHRGET for zero page 
E3BF; Initialize Basic 
E447; Vectors for $300 
E453; Initialize vectors 
E45F; Power-up message 
E500; Get I/O address 
E505; Get screen size 
E50A; Put/get row/column 
E518; Initializel/O 
E544; Clear screen 
E566; Home cursor 
E56C; Set screen pointers 
E5A0; Set I/O defaults 
E5B4; Input from keyboard 
E632; Input from screen 
E684; Quote test 
E691; Setup screen print 
E6B6; Advance cursor 
E6ED; Retreat cursor 
E701; Back into previous line 
E716; Output to screen 
E87C; Go to next line 
E891; Perform <return> 

E8A1; Check line decrement 
E8B3; Check line increment 
E8CB; Set color code 
E8DA; Color code table 
E8EA; Scroll screen 
E965; Open space on screen 
E9C8; Move a screen line 
E9E0; Synchronize color transfer 
E9F0; Set start-of-line 
E9FF; Clear screen line 
EA13; Print to screen 
EA24; Synchronize color pointer 
EA31; Interrupt - clock etc 
EA87; Read keyboard 
EB79; Keyboard select vectors 
EB81; Keyboard 1 - unshifted 
EBC2; Keyboard 2 - shifted 
EC03; Keyboard 3 - ‘comm’ 
EC44; Graphics/text contrl 
EC4F; Set graphics/text mode 
EC78; Keyboard 4 
ECB9; Video chip setup 
ECE7; Shift/run equivalent 
ECFO; Screen In address low 
ED09; Send ‘talk 1 
EDOC; Send ‘listen’ 

ED40; Send to serial bus 
EDB2; Serial timeout 
EDB9; Send listen SA 
EDBE; Clear ATN 
EDC7; Send talk SA 
EDCC; Wait for clock 
EDDD; Send serial deferred 
EDEF; Send ‘untalk’ 


Vol2 Issue 8 Commodore Magazine 46 





EDFE; Send 'unlisten' 

EE13; Receive from serial bus 
EE85; Serial clock on 
EE8E; Serial clock off 
EE97; Serial output T 
EEAO; Serial output 'O' 

EEA9; Get serial in & clock 
EEB3; Delay 1 ms 
EEBB; RS-232send 
EF06; Send new RS-232 byte 
EF2E; No-DSR error 
EF31; No-CTS error 
EF3B; Disable timer 
EF4A; Compute bit count 
EF59; RS232 receive 

EF7E; Setup to receive 
EFC5; Receive parity error 
EFCA; Receive overflow 
EFCD; Receive break 
EFDO; Framing error 
EFE1; Submit to RS232 
FOOD; No-DSR error 
F017; Send to RS232 buffer 
F04D; Input from RS232 
F086; Get from RS232 
F0A4; Check serial bus idle 
FOBD; Messages 
F12B; Print if direct 
F13E; Get.. 

F14E; ..from RS232 

F157; Input 

FI99; Get.. tape/serial/rs232 
F1CA; Output.. 

F1DD; ..to tape 

F20E; Set input device 
F250; Set output device 
F291; Close file 
F30F; Find file 
F31F; Set file values 
F32F; Abort all files 
F333; Restore default I/O 
F34A; Do file open 
F3D5; Send SA 
F409; Open RS232 
F49E; Load program 
F5AF; 'searching' 

F5C1; Print filename 
F5D2; ’loading/verifying' 
F5DD; Save program 
F68F; Print 'saving' 

F69B; Bump clock 
F6BC; Log PIA key reading 
F6DD; Get time 
F6E4; Set time 
F6ED; Check stop key 
F6FB; Output error messages 
F72D; Find any tape headr 
F76A; Write tape header 


F7D0; 

F7D7; 

F7EA; 

F80D; 

F817; 

F82E; 

F838; 

F841; 

F864; 

F875; 

F8D0; 

F8E2; 

F92C; 

FA60; 

FB8E; 

FB97; 

FBA6; 

FBC8; 

FBCD; 

FC57; 

FC93; 

FCB8; 

FCCA; 

FCD1; 

FCDB; 

FCE2; 

FD02; 

FD10; 

FD15; 

FD1 A; 

FD30; 

FD50; 

FD9B; 

FDA3; 

FDDD; 

FDF9; 

FF n 0; 

FE07; 

FE18; 

FE1C; 

FE21; 

FE25; 

FE27; 

FE2D; 

FE34; 

FE43; 

FE66; 

FEB6; 

FEBC; 

FEC2; 

FED6; 

FF07; 

FF43; 

FF48; 

FF81; 

FFFA; 


Get buffer address 
Set buffer start/end pointers 
Find specific header 
Bump tape pointer 
'press play..’ 

Check tape status 
'press record..' 

Initiate tape read 
initiate tape write 
Common tape code 
Check tape stop 
Set read timing 
Read tape bits 
Store tape chars 
Reset pointer 
New character setup 
Send transition to tape 
Write data to tape 
IRQ entry point 
Write tape leader 
Restore normal IRQ 
Set IRQ vector 
Kill tape motor 
Check r/w pointer 
Bump r/w pointer 
Power reset entry 
Check 8-rom 
8-rom mask 
Kernal reset 
Kernal move 
Vectors 

Initialize system constnts 

IRQ vectors 

Initialize I/O 

Enable timer 

Save filename data 

Save file details 

Get status 

Flag status 

Set status 

Set timeout 

Read/set top of memory 

Read top of memory 

Set top of memory 

Read/set bottom of memory 

NMI entry 

Warm start 

Reset IRQ & exit 

Interrupt exit 

RS-232 timing table 

NMI RS-232 in 

NMI RS-232 out 

Fake IRQ 

IRQ entry 

Jumbo jump table 

Hardware vectors 
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Voice 1 
SD400 

SD401 

SD402 

SD403 

SD404 

$D405 

SD406 


Processor I/O Port (6510) 


DDR 0 


PR 1 


IN 

IN 

OUT 

IN 

OUT 

OUT 

OUT 

OUT 


Tape 

Motor 

Tape 

Sense 

Tape 

Write 

D-ROM 

Switch 

EF RAM 
Switch 

AB RAM 
Switch 


Voice 2 

SD407 

Voice 3 

SD40E 

SD408 

SD40F 

SD409 

SD410 

SD40A 

$D411 

SD40B 

$D412 

SD40C 

$D413 

SD40D 

SD414 


$D415 

$D416 

$D417 

$D418 


SID (6581) 


— 

Frequency 


L 

H 


Pulse Width 


L 

0 0 0 

0 



H 

Voice Type: 
NSE . PUL . SAW . 

TRI , 

i 


Key 

Attack Time 
, 2ms T 8ms , 


i 

Decay Time 
, 6ms -.24 sec , 


Sustain Level 

-1-1—i 


I 

Release Time 
, 6ms ,24 sec . 



Voices (write only) 


0 0 0 0 0 

L 

Filter Frequency H 

Resonance 

Filter Voices 

i Ext 

, V3 . V2 , VI 

Passband: 

Master 

V3 off, HI , BP . LO , 

Volume 


Filter & Volume (write only) 


Voice 1 

54272 

Voice 2 

54279 

Voice 3 

. 54286 

54273 

54280 

54287 

54274 

54281 

54288 

54275 

54282 

54289 

54276 

54283 

54290 

54277 

54284 

54291 

54278 

54285 

54292 


54293 

54294 

54295 

54296 


$D419 
$D41A 
$D41B 
$D41C 


Paddle X (A/D # 1) 


Paddle Y (A/D *2) 


Noise 3 (random) 


Envelope 3 


Sense (read only) 


54297 

54298 

54299 

54300 


Note: Special Voice Features 
(TEST, RING MOD, SYNC) 
are omitted from the above diagram. 
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SDCOO 

SDCOl 

SDC02 

SDC03 

SDCOl 

SDC05 

SDC06 

SDC07 

SDCOD 

SDCOB 

SDCOF 


SDDOO 

SDDOl 

SDD02 

SDD03 

SDD04 

SDD05 

SDD06 

SDD07 

SDDOD 

SDDOE 

SDDOF 


CIA 1 (IRQ) (6526) 


Paddle Sel 

A B 


Joystick 0 

Fire Right Left 

Down 

Up 

Keyboard Row Select (inverted) 



Joystick 1 

Fire Right Left 

Down 

Up 


Keyboard Column Read 



SFF - All Output 

S00 - All Input 

— 


Timer A 


— 

— 


Timer B 


— 




1 t 

Tape 

Input 



Timer h 
B 

iterrupt 

A 



One 

Shot 

Out 

Mode 

Time 
PB6 Out 

Timer 

A Start 



One 

Shot 

Out 

Mode 

Time 
PB7 Out 

Timer 

B Start 


PRA 56320 

PRB 56321 

DDRA 56322 
DDRB 56323 
TAL 56321 
TAH 56325 
TBL 56326 
TBH 56327 

ICR 56333 
CRA 56334 
CRB 56335 


CIA 2 (NMI) (6526) 


Serial 

Clock 

Serial 

Clock 

ATN 

RS-232 

VIC II 

VIC II 

IN 

IN 

OUT 

OUT 

OUT 

OUT 

addr 15 

addr 14 

DSR 

CTS 


DCD* 

Rl* 

DTR 

RTS 

RS-232 

IN 

IN 


IN 

IN 

OUT 

OUT 

IN 


$3F - Serial 


$00 - P.U.P. All Input or $06 - RS-232 


Timer A 


Timer B 



RS-232 

IN 


Timer Ii 
B 

iterrupt 

A 


Timer 

A Start 


Timer 

B Start 


* Connected but not used by O.S. 


PRA 

56576 

PRB 

56577 

DDRA 

56578 

DDRB 

56579 

TAL 

56580 

TAH 

56581 

TBL 

56582 

TBH 

56583 


ICR 

56589 

CRA 

56590 

CRB 

56591 
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Commodore 64 Memory Map Compiled by Jim Butterfield 
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Page 22 was incorrectly 
page is correct. 


type, they are performed in order from left to 
right. We can use parentheses to show you better 
how the VIC actually sets up this calculation. The 
VIC performs the calculations in order as shown 
and displays 11 as the answer. 

Calculation 'Rail Specific Operation Each Time 


10*(2 T 2)/4+3—2 2*2 = 4 

(10*4)/4+3-2 10*4 = 40 

(40/4)+3-2 40/4= 10 

(10+3)—2 10+3=13 

(13-2) 13-2=11 

You could change this calculation by adding 
parentheses, like this: 

PRINT10*2 T 2/(4+3—2) 


In this case, the VIC will first perform the 
exponentiation, then the multiplication... but 
before dividing, it will do the parenthetical oper¬ 
ation. The calculation trail now looks like this: 


10*2 T 2/(4+3-2) (4+3-2)= 5 

10*2 T 2/5 2T2= 4 

(10*4)/5 10*4 = 40 

40/5 40/5= 8 


Using Numbers in Programs 

This part of our "magical" VIC tour is going to 
show you how to use numbers in your programs. 

You can use numbers in your BASIC programs 
—not only directly, like you'd use numbers in 
counting or calculating—but also indirectly in 
the form of variables that can change as a 
number changes. 

Our previous section gave you a quick intro¬ 
duction to calculation on the VIC. We mostly 
worked in the DIRECT MODE. Our next step is 
to explore how to use numbers in your BASIC 
PROGRAMS. 

Let's begin with a short example. 


10INPUTX (and hit RETURN) 
20 PRINTX* 10 (and hit RETURN) 
30 GOTO 10 (and hit RETURN) 


Type RUN to start the program. Now type 
any number and hit RETURN. The VIC multiples 
your number by 10 and gives you the result, 
you wanted to multiply your number by 10 per¬ 
cent, or by pi or by any other number, all you 
have to do is change the 10 in line 20 to some¬ 
thing else. Also, the calculation in line 20 could 
also be division, addition, subtraction, or any 
other calculation. 

The key to this program is the INPUl state¬ 
ment in line 10, which accepts the number YOU 
type in, and assigns it the value X. Alter it multi¬ 
plies your number times 10 and PRINTS the result, 
the program loops back and asks for another 
number, which becomes the “new X. 

To really understand how this program 
works... and in fact how most number-oriented 
programs work... you should understand 
numeric variables. 


printed in issue 7 . This 


Numeric Variables 

The concept of variables is explained in the 
VIC user manual, but this is one of the hardest 
computing concepts to grasp, so we're going to 
talk you through it gradually. 

A variable is like a code. Numeric variables 
are like codes the VIC uses— and which you 
can use—to stand for a number. Numeric vari¬ 
ables help the VIC remember and manipulate 
numbers—even change them—in a program. 
You can use variables for words, letters, phrases 
and graphics, too, but in this discussion we'll 
concentrate on those variables we use to repre¬ 
sent numbers. 

There are LEGAL and ILLEGAL variable 
names. Numeric variable names can be a single 
letter, two letters, or a letter and a number. 
Examples are: A, X, AA. AB, PI, R4, AB2, MU5. 

A special kind of numeric variable, which limits 
the value to an integer (whole number, no frac¬ 
tions or decimals) has a % sign as the last char¬ 
acter (Examples: A%, AB%, Pl%, R4%). 

The other type of variable is called a "string 
variable." Here, numbers are used like words 
instead of values (e.g„ a zip code or phone 
number). String variables end in a $ sign 
(Examples: AS, AB$) and are mostly used to 
specify letters, words, phrases, graphic symbols 
and descriptive numbers. If you tell the VIC that 
X= 19406 then the VIC interprets the X as the 
value 19,406. But if you want that number to be 
descriptive, like a zip code, then you tell the VIC 
that X$= 19406 and the number 19406 will be 
used like a word or phrase instead of a value. 

How Variables Work 

If I say X= 10 then I have just created a 
variable and from now on the letter X stands 
for the number 10. You might ask why we don't 
just use the number 10 but in a moment we'll 
show you why using an X gives the VIC more 
calculating power and program flexibility. 

If I tell the VIC X= 10, then any time I use 
the variable X in my program, the VIC will think 
of it as the number 10. If I tell the VIC to PRINTX. 
the VIC PRINTs the number 10. Let's test this 
assumption. Type this: 

NEW (and ha RETURN - to erase 

previous program) 

X=i0 (and hit RETURN) 

We've told the VIC that the variable X equals 
10. We can do this in DIRECT (IMMEDIATE) 
mode, without using line numbers. The VIC will 
automatically store these variables in its memory 
.. although the variables may be changed or 
erased if we RUN a program. Let's continue. 

TVpe this: 

PRINTX (and hit RETURN) 

The VIC responds by displaying the number 
10. That's because we created the X variable 
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MAKE THE MOST OF YOUR 

COMMODORE 


HIGH-RESOLUTION 1 

GRAPHICS 

Now you can give your PET/CBM a High- 
Resolution Graphics capability with the MTU 
Graphics Hardware and Software Package. 
The Hardware is easily installed and the new 
graphics board provides five EXTRA ROM 
Sockets and 8k RAM MEMORY EXPAN¬ 
SION which can be used for program or data 
storage when graphics are not required. A 
powerful graphics Software Package is 
included and contains many extra BASIC 
commands for drawing lines defining shapes 
etc. The Graphics Hardware does not affect 
normal operation of the Commodore. 

Available on all PET/CBM - 
BASIC 1, 2, 3, or 4. 

RS232 TEST SET 

The RS232 TESTSET is a small hand held 
' device that connects inline with the interface 
cable, the terminal or the modem and monitors 
the line signals. The TESTSET passes all 25 
lines through and so can be left connected 
without affecting communications. It is 
completely portable as no batteries are required 
since power us derived from the interface 
signals. Each indicator circuit is current limited 
to meet the requirements of the RS232 
Interface Standard. Also the voltage range for 
activating the bright LED display corresponds 
with this standard and thereby reduces 
troubleshooting to a “GO-NOGO” problem 
instead of trying to measure active signals to 
determine voltage levels. One 2-pin and one 3- 
pin jumper are included. 


PRINTOUT 

Don’t forget your PRINTOUT Magazine 
Subscription - for Commodore PET/CBM 
Lovers 12 issues p.a. from Jan. ’82 incl. postage 
- $50.00 p.a. 

VIC COMPUTING 

For all VIC 20 owners, this sister to 
PRINTOUT is a must 6 issues p.a. incl. 
postage from Jan. ’82 - $25.00 p.a. 



PROGRAMMERS TOOLKIT ROMS 


These ROMs plug into spare sockets in your PET/CBMs and give the user additional commands 
such as TRACE, single STEP, FIND, RE-NUMBER, AUTO line numbering,DUMP variable 
contents, APPEND, and DELETE multiple lines. Also available are the DISK-O-PRO Tool-kits 
which gives all the extra DOS 2.0 commands to DOS 1.0 users as well as commands like PRINT 
USING, SCROLL and disk program MERGE -25 commands in all. The COMMAND-O provides 
DISK-O-PRO commands for BASIC 4.0 users. 


The Programmers Toolkit for BASIC 1.0/2.0/3.0/4.0 users. 
DISK-O-PRO Toolkit for BASIC 2.0/3.0 users. 
COMMAND-O Toolkit for BASIC 4.0 users. 


Tel: (03)6141433 
614-1551 

Telex: AA 30333. 



MICROCOMPUTER SYSTEMS DESIGNERS 


B.S. M8CR0CQMP 
PTY. LIMITED, 

4th & 3rd Floors, 
561 Bourke Street, 
Melbourne, 3000. 
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The Microcomputer House is at 116 Abercrombie Street, Chippendale. Telephone 698 7076 

D)(q 3 Want to learn to play the guitar? We’ve got 
>Ou~-Do a programme for only $19.95 that can teach you. 

















